اولا تحتاج في برنامجك الى محررين
الاول للادخال والثاني للاخراج مثلا
PHP كود :
procedure TForm1.Button1Click(Sender: TObject); Var S1,S2:String;i:integer; begin S1:=Edit1.Text; // مكان النص الاول for i:= Length(S1) downto 1 do S2:=S2+S1[i]; Edit2.Text:=s2; // مكان العرض end;