RosettaCodeData/Task/Test-a-function/Delphi/test-a-function-2.pas

  Check(IsPalindrome('salàlas'), 'salàlas is a valid palindrome');
  Check(IsPalindrome('Ingirumimusnocteetconsumimurigni'), 'Ingirumimusnocteetconsumimurigni is a valid palindrome');
  Check(not IsPalindrome('123'), '123 is not a valid palindrome');