[m1sclick]

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
  str1, str2: string;
  i: integer;
begin
  str1:= Edit1.Text;
  for i:= Length(str1) downto 0 do str2:=str2 + str1[i];
  Edit2.Text:= str2;
end;