[Spynosa]

utiliza el evento onDropDown

Código Delphi [-]
procedure TForm1.DateTimePicker1DropDown(Sender: TObject);
begin
   DateTimePicker1.Date := now;
end;