frase palindromo

[[egostar]]

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.