Cómo averiguar si una frase es un palíndromo

[[Al González]]

Empezado por ContraVeneno

Yo pensé que esto no era problema con "AnsiUpperCase"...

Lo que tiene ANSIUpperCase es que considera a todos los caracteres del idioma actual, incluyendo los acentuados. Pero no da por iguales a una "a" y una "á".

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage (UpperCase ('a, á'));
  ShowMessage (ANSIUpperCase ('a, á'));
end;

Sería terrible que ANSIUpperCase quitara los acentos al convertir a mayúsculas.

[ContraVeneno]

cierto, cierto, ya entendí cuál sería el problema con los acentos. Gratzie