[[egostar]]

Puedes emular la tecla Escape cuando el estado del DateTimePicker1 este en DroppedDown, algo así

Código Delphi [-]
procedure TForm1.DateTimePicker1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if DateTimePicker1.DroppedDown then
     keybd_event( VK_ESCAPE, 0, 0, 0 );
end;

Salud OS.