Datumsvergleich ab Delphi 7 und 8 falsch ??

[neolithos]

Bei mir funktioniert das...

Delphi-Quellcode:

var dt1,
    dt2 : TDateTime;
begin
  dt1 := StrToDate(DateToStr(Now));
  dt2 := EncodeDate(2004, 4, 1);
  if dt1 = dt2 then
     ShowMessage('test');
end;