MonthCalendar1.Date und Date vergleichen

[sigi]

Hallo,

obwohl der Kalender beim start auf das aktuelle Datum gestellt wird, klappt der Vergleich nicht. Klick ich aber auf das aktuelle Datum (obwohl es da schon richtig steht), klappt es, das beep kommt. Kann mir jemand einen Tipp geben, warum es erst nach dem Klick auf den Kalender geht?

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
  MonthCalendar1.Date := Date;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := DateToStr(MonthCalendar1.Date);
  if MonthCalendar1.Date = Date then
  begin
    beep;
  end;
end;

Gruß sigi