كيفية قلب النص داخل Edit

[onexite]

حل اخر اضنه افضل من الاول

PHP كود :

procedure TForm1.btn1Click(Sender: TObject);
var i:Integer;
s:string;
begin
 for i:=Length(edt1.text) downto 1 do
  s:=s+edt1.Text[i]   ;
  ShowMessage(s);
end;