delhpi contar string

var
  S: string;
  N: Integer;
...
  N := Length(´Teste´); // N = 5
 
  S := ´Delphi´;
  N := Length(S); // N = 6