String spiegeln

[basti2011]

Hallo,
ich bin neu hier und hoffe nicht vollkommen den falschen Thread erwischt zu haben.

Jedenfalls sitz ich jetzt seit mehreren Stunden bei einem Programm was ein eingebenes Wort spiegeln sollte:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var wort,gespiegeltes_wort:string;
    i,laenge: integer;
    BS_array :array of string;

begin
 Wort := edit1.Text;
 Laenge := Length(wort);
 Setlength(BS_array,Laenge);

 For i := (Laenge-1) DOWNTO 0 do
  BS_array[i] := Wort[i+1];      
  gespiegeltes_wort := wort;    // vermutlich liegt in diesem Bereich ein großer Fehler

also ich würd mich freuen über jede Antwort und danke im Voraus