Stringreihenfolge umkehren

[Kytrix]

Hi =)

ich habe einen String "abcd" den ich gerne als "dcba" also genau umgekehrt darstellen würde.
Was ich brauche ist einen algorithmus der die reihenfolge ändert .

Ich habe hier schon einen code dazu gefunden der aber nicht funktioniert da als ergebnis "dabc" raus kommt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  i,j:Byte; 
  DummyChar: char; 
  DummyString:String; 
begin 
  for i:=1 to length(edit1.Text) do 
    begin 
      DummyString:=''; 
      Memo1.Lines.add(Edit1.Text); 
      DummyChar:=Edit1.text[1]; 
      for j:= 2 to length(Edit1.Text) do 
        DummyString:=DummyString+Edit1.text[j]; 
      DummyString:=DummyString+dummyChar; 
      Edit1.Text:=DummyString; 
    end; 
end;