Kann Delphi jetzt kein s[1] mehr?

[malo]

Schreib dir doch selbst eine

Delphi-Quellcode:

function gibzeichen(s: string; pos: integer): char;
begin
  if length(s) >= pos then
    result := s[pos]
  else
    result := '';
end;