RosettaCodeData/Task/Test-a-function/Delphi/test-a-function-1.delphi

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