Problem mit DATETIMEPICKER

[hgiel]

Hallo,

ich möchte eine Datumeingabe überprüfen - sie soll über einen Datetimepicker oder direkt geändert werden und soll NICHT in der Vergangenheit (in Bezug auf das aktuelle Datum liegen):

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
if datetimepicker1.DateTime<now then
begin
showmessage('Datum liegt in der Vergangenheit!!!');
datetimepicker1.DateTime:=now;
end;
end;

Die Routine erkennt korrekt, ob das geänderte Datum in der Vergangenheit liegt und meldet dies auch!

2 Fragen:
Ich muss die showmessage 2 mal mit ENTER oder OK-klick bestätigen - warum???
Ich wollte das Datum dann auf das aktuelle Datum korrigieren - klappt aber nicht: das falsche Datum wird weiterhin angezeigt!

Gruss

HGIEL