Probleme mit DateTimePicker

[torf160]

Hallo,

ich komme mit dem DateTimePicker (Delphi 3) nicht zurecht.

In folgendem Beispiel ist immer ein doppelter Klick
auf den OK-Button nötig und ich hab keine Idee warum das so ist.

Delphi-Quellcode:

procedure TForm2.DateTimePicker1Change(Sender: TObject);
var d1, d2 : TDateTime;
    i      : real;
begin
 d1 := Date;
 d2 := DateTimePicker1.Date;
 i := d2 - d1;
 if i < 2 then
 begin
   showmessage('Der Liefertermin muss mind. 2 Tage in der Zukunft liegen');
   DateTimePicker1.Date := LieferTermin;
 end
 else begin
   LieferTermin := DateTimePicker1.Date;
 end;
end;

Wenn ich versuche der Eigenschaft MinDate einen Wert zuzuweisen, bekomme ich immer die Fehlermeldung, dass das Datum das Minimum von "30.12.1899" unterschreitet.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var d :TDateTime;

begin
  d := Date + 2;
  DateTimePicker1.Date := d;   // funktioniert wie erwartet
  DateTimePicker1.MinDate := d;   // führt zu der Fehlermeldung
end;

Was mache ich da falsch???

Ich hoffe, Ihr könnt mir weoterhelfen.

torf160