Delphi compatible
Fix the test