DateTimePicker für 2 Unterschiedliche variablen

[SaFu]

Hi

und zwar habe ich folgendes Problem

Ich Würde gerne mit einem DateTimePicker 2 Variablen nacheinander mit dem Ausgewählten Datum füllen.

Immoment mach ich das mit 2 DateTimepicker wie mache ich das aber mit einem sodas die Benutzerfreundlichkeit erhalten bleib.

so ist mein code

Delphi-Quellcode:

procedure TLverwaltun.DateTimePicker1CloseUp(Sender: TObject);
Var Datum : String;
begin
 LTable.Open;
 LTable.Edit;
 Datum:= DateToStr(Datetimepicker1.Date);
 LTable['Geb']:= Datum;
 DBText2.Caption:= Datum;
end;

procedure TLverwaltun.DateTimePicker2CloseUp(Sender: TObject);
Var EinstDatum : String;
begin
 LTable.Open;
 LTable.Edit;
 EinstDatum:= DateToStr(Datetimepicker2.Date);
 LTable['Einstellung']:= EinstDatum;
 DBText3.Caption:= EinstDatum;
end;

gruss sascha