Buchstaben an andere Stelle setzten

[Mariaki]

Delphi-Quellcode:

Var
 Text:string;
 Buchstabe:Char;
 Stelle1,Stelle2:Cardinal;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Text:=Memo1.Lines.Text;
  Stelle1:=1;
  Stelle2:=3;
  if (Stelle1 > Length(Text)) or (Stelle2 > Length(Text)) then
    Raise Exception.Create('Fehler');
  If Stelle2 > Stelle1 Then Inc(Stelle2);
  Buchstabe:=Text[Stelle1];
  Delete(Text,Stelle1,1);
  Insert(Buchstabe,Text,Stelle2);
  Memo2.Lines.Add(Text);
end;

Das ist der ganze Code. Das mit Stelle:=1 und Stelle2:=3 ist nur Beispielhaft.