function strrev(lpData:string):string;
var
size,i,t:Integer;
begin
t:=0;
size:=Length(lpData);
SetLength(Result,size);
for i:=1 to size do
begin
Result[size-t]:=lpData[i];
Inc(t);
end;
end;

//字符串反转 www.delphitop.com

edt2.Text:=strrev(edt1.Text);