문자열 역순으로 출력하기

function ReverseString(s: String): String;
var
  i: integer;
  s2: string;
begin
  s2 := '';
  for i := 1 to Length(s) do
    s2 := s[i] + s2;
  Result := s2;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(ReverseString('역순으로 나타낼 문자열'));
end;