كيف أعكس ما تم كتابته ب edit1

[maosalah]

استعمل الحلقة for احسن

var i :integer;
begin
edit2.text := '';
for i := length(edit1.text) downto 1 do
edit2.text := edit2.text + edit1.text[i];
end;