#pas
function ReverseString(const Text: string): string;
var
  I: Integer;
  P: PChar;
begin
  SetLength(Result, Length(Text));
  P := PChar(Result);
  for I := Length(Text) downto 1 do
  begin
    P^ := Text[I];
    Inc(P);
  end;
end;