Möchte Buchstaben einzelnd anzeigen

[EMS]

das mit dem debuggen
aber den code funktioniert nun

Delphi-Quellcode:

var
   string1,string2,stringneu:string;
   laenge,laengeneu,anzahl_Zeichen1,anfangsposition1,
   anfangsposition2,anzahl_zeichen2,index1,index2
     :integer;
begin
    string1:=edit4.text;
    laenge:=LENGTH(string1);

    For index2:=  1 to laenge do
       begin
       string2:=edit4.text;
       index1:=1;
       anfangsposition1:=index1;
       anzahl_Zeichen1:=index2-1;
       delete(string2,anfangsposition1,anzahl_Zeichen1);
       laengeneu:=laenge-index2+1;
       stringneu:=string2;
       anfangsposition2:=2;
       anzahl_Zeichen2:=laengeneu-1;
       delete(stringneu,anfangsposition2,anzahl_Zeichen2);
       showmessage(stringneu);
    end;
end;