DateTimePicker: Problem mit MinDate und MaxDate

[Mike_on_Tour]

OK, ich muß etwas mehr erklären.

Ich habe ein Form1, in dem ein einzelner Datensatz von vielen ausgewählt wird. Mit einem Doppelklick auf diesen Datensatz wird ein Form2 aufgerufen, um die einzelnen Datenfelder des Datensatzes anzuzeigen:

Delphi-Quellcode:

procedure TForm1.StrGridDblClick(Sender: TObject);
begin
  Form2.ShowModal;
end;

Im Form2 befinden sich im Ereignis 'FormShow' u.a. folgende Codezeilen:

Delphi-Quellcode:

// aktuelles Datum setzen 
DateTimePicker1.Date := Date(); 
// Min/Max-Datum setzen 
DateTimePicker1.MinDate := Trunc (adsTblAuftrag.FieldByName('ErfassDatum').AsDateTime); 
DateTimePicker1.MaxDate := Date();

bzw. die Änderungen aus meinem 1. Post. Der erste Aufruf von Form2 funktioniert auch unter Vista fehlerfrei. Ab dem zweiten Aufruf kommt jedoch die von mir beschriebene Fehlermeldung, aber nur unter Vista. Was kann ich tun ?

@fatalerror: Meine Antwort hat sich zeitlich etwas überschnitten. Ich habe schon folgends probiert:DateTimePicker1.MaxDate := Date() + 1; Das hat aber auch nichts geholfen.