{
Return string with reverse chars order.
}
function ReverseStr(arg:String):String;
var s:String; i:Integer;
 procedure Cleanup;
 begin
  s:=''; // Clear all local strings.
 end;
begin
 Cleanup;
 for i:=Length(arg) downto 1 do s:=s+arg[i];
 ReverseStr:=s;
 Cleanup;
end;
