Cerrar calendario de TDateTimePicker con la tecla Control

[calogero]

//todo esto en el evento keydown del datetimepicker
procedure TfrmCompras.dateTimeDiaMesPagoKeyDown(Sender: TObject; 
Var Key: Word; Shift: TShiftState);
begin
  if Key = VK_CONTROL then begin  
      if notdateTimeDiaMesPago.DroppedDown then
        dateTimeDiaMesPago.Perform(WM_KEYDOWN,VK_F4,0);
      if dateTimeDiaMesPago.DroppedDown then
        dateTimeDiaMesPago.Perform(WM_KEYDOWN,VK_ESCAPE,0);
  end;
end;

tengo este codigo lo que deseo lograr es lo siguiente:
poder abrir y cerrar el calendario del tDateTimePicker
con la tecla control es decir deseo emular la tecla F4
con la que se abre y cierra por default el tDateTimePicker
pero lo no lo he podido hacer con la tecla control solo
logro que se abra pero si vuelvo a presionar control
no me la toma en cuenta y queda abierto el calendario
a menos que lo cierre con escape...

si alguien tiene una idea mejor por favor echeme la
mano, aqui mi jefe me trae frito con eso, gracias
por su ayuda ...