DateTimePicker für 2 Unterschiedliche variablen

[SaFu]

So was mach ich falsch

Delphi-Quellcode:

procedure TLverwaltun.DateTimePicker1CloseUp(Sender: TObject);
Var Datum, EinstDatum : String;
begin
 if (DateDatum = True) then
  Begin
   LTable.Open;
   LTable.Edit;
   Datum:= DateToStr(DateTimePicker1.Date);
   LTable['Geb']:= Datum;
   DBEdit9.Text:= Datum;
  end;
 if (DateDatum = False) then
  Begin
   LTable.Open;
   LTable.Edit;
   EinstDatum:= DateToStr(DateTimePicker1.Date);
   LTable['Einstellung']:= EinstDatum;
   DBEdit10.Text:= EinstDatum
  end;
end;

procedure TLverwaltun.DBEdit10DblClick(Sender: TObject);
begin
 DateDatum:= False;
end;

procedure TLverwaltun.DBEdit9DblClick(Sender: TObject);
begin
 DateDatum:= True;
end;

Ich komm nie auf ein True