[NIch]

Как то так...
Кинь на форму Button1, Edit1 и Edit2...в событии OnButtonClick напиши...

Код:

var
 S, S1: string;
 i: word;
begin
 S := Edit1.Text;
 S1 := '';
 for i := Length(S)-1  downto 0 do
  S1 := S1 + S[i];
 Edit2.Text := S1;
end;