[NIch]

Как то так...

Код:

var
 Str, Str1: string;
 i: word;
begin
 Str := Edit1.Text;//К примеру слово берется из Edit1
 Str1 := ''; 
 for i := Length(Str)-1 down to 0 do
  Str1 := Str1 + Str[i];
 Edit2.Text := Str1;
end;