Oder so:
Delphi-Quellcode:
var
Buchstabe,Satz : String;
i : Integer;
begin
Satz:='Delphi';
for i := 1 to length(Satz) do begin
Buchstabe:=Satz[i];
showmessage(Buchstabe);
end;
end;
habe den Code nicht getestet aber er solte funktionieren.
Mfg MrScholz