Jetzt bin ich endlich vom Schlauch runter gekommen!
Hier meine Lösung:
Delphi-Quellcode:
FDatum : TDate;
procedure setDatum (value : TDate);
...
property datum : TDate Read FDatum Write setDatum;
mit
Delphi-Quellcode:
procedure TForm.setDatum(value:TDate);
begin
FDatum := value;
end;
In die FormCreate schreib ich...
setDatum(Now);
Und beim wählen des Datums im DTPicker:
Delphi-Quellcode:
procedure TForm.DateTimePicker1Change(Sender:TObject);
begin
setDatum(DateTimePicker1.Date);
end;