1   
2   {=== Reverse a string ===}
3   function ReverseStr(const sRev : string):string;
4    var i : Integer;
5   begin
6    Result := '';
7    for i:=Length(sRev) downto 1 do Result := Result + sRev[i];
8   end;
9   //---------------------------------------------------------------------//
10