Определить, является ли строка палиндромом или нет (итерация и рекурсия)

procedure TForm1.Button1Click(Sender: TObject);
var
  S : String;
  i, j : Integer;
  Res : Boolean;
begin
  S := Edit1.Text; //Строка, которую будем проверять на перевёртыш.
 
  i := 1;
  j := Length(S);
  Res := True;
  while Res and (i < j) do
  begin
    Res := S[i] = S[j];
    Inc(i);
    Dec(j);
  end;
 
  if Res then
    ShowMessage('Строка является перевёртышем.')
  else
    ShowMessage('Строка НЕ является перевёртышем.');
end;

//Рекурсивная функция, которая проверяет, является ли строка aStr перевёртышем (палиндромом).
//Возвращаемое значение: True - строка является перевёртышем, False - строка не является перевёртышем.
function IsPalindrom(const aStr : String; const aI, aJ : Integer) : Boolean;
begin
  Result := True;
  if aI < aJ then
  begin
    Result := aStr[aI] = aStr[aJ];
    if Result then
      Result := IsPalindrom(aStr, aI + 1, aJ - 1);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  S : String;
begin
  S := Edit1.Text; //Строка, которую будем проверять на перевёртыш.
 
  if IsPalindrom(S, 1, Length(S)) then
    ShowMessage('Строка является перевёртышем.')
  else
    ShowMessage('Строка НЕ является перевёртышем.');
end;