Antes de irme a casita quiero comentar que me quede con este asunto del palíndromo y debo decir que
roman es realmente un maestro, cosa nada extraña, pero si quiero reiterarlo. Ha dado la solución exacta a este problema con la rutina Assert juntamente con la función ReverseString().
Aqui pego el código que escribí y reitero, quede gratamente sorprendido.
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
S: String;
begin
S := StringReplace('dabale arroz a la zorra el abad', ' ', '', [rfReplaceAll]);
try
Assert(ReverseString(S) = S);
ShowMessage('SI es un Palídromo');
except
ShowMessage('NO es un Palídromo');
end;
end;
Salud OS.
Edito: No es Políndromo es Palíndromo, lo siento.