RosettaCodeData/Task/Reverse-a-string/Delphi/reverse-a-string-1.pas

function ReverseString(const InString: string): string;
var
  i: integer;
begin
  for i := Length(InString) downto 1 do
    Result := Result + InString[i];
end;