TDateEdit не очищается дата

[Котэ 1]

Доброго времени суток.

Подскажите с таким вопросом.

Кидаем на форму  TDateEdit ,  в нем отображается дата.

делаем  событие 

procedure Tform1.DateEdit1Tap(Sender: TObject; const Point: TPointF);
begin
   DateEdit1.Data := nil;
  ShowMessage(DateToStr(DateEdit1.Date));
end;

Появится сообщение с датой.  хотя по идее дату мы очистили.

Как правильно очистить дату ?

[slav_z 29]

1 час назад, Котэ сказал:

Как правильно очистить дату ?

очистить дату можно только на экране:

DateEdit1.IsEmpty:=True;

DateEdit1.Data := nil; - Data это свойство TFmxObject к дате TDateEdit оно не имеет отношения.

ShowMessage(DateToStr(DateEdit1.Date)); - всегда покажет дату: тип TDate всегда имеет какое-нибудь значение (не может быть nil). Просто проверяйте свойство DateEdit1.IsEmpty перед обработкой.