{
Convert string to reverse order, like ABC -> CBA.
}
function ReverseString(data:String):String;
var i,L:Integer; s:String;
begin
 s:='';
 L:=Length(data);
 for i:=1 to L do s:=s+data[L-i+1];
 ReverseString:=s;
 s:='';
end;  
