Перевернуть Строку

[Sascha]

Создаём форму, кидаем на неё два Edit , и Button. Нажимаем на Button и пишем код:

function ReverseStr(const s: string): string;
var
   L, i, j: integer;
begin
   L := Length(s);
   setlength(result, L);
   j := 0;
   for i := L downto 1 do
   begin
     Inc(j);
     Result[j] := s[i];
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text := ReverseStr(edit1.text);
end;

И получаем вот такое: