DateTimePicker für 2 Unterschiedliche variablen

[SaFu]

ich wollte halt net soviele benutzen

geht das Irgenwie so vielleicht

Delphi-Quellcode:

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

 if DBText3 hat focus Then
  Begin 
   LTable.Open; 
   LTable.Edit; 
   EinstDatum:= DateToStr(Datetimepicker2.Date); 
   LTable['Einstellung']:= EinstDatum; 
   DBText3.Caption:= EinstDatum; 
  end;
end;