[[Lepe]]

Otra solución a la planteada por roman:

En el Onclick del SpeedButton:

Código Delphi [-]
if (Self.ActiveControl is TdatetimePicker) and
   (TDateTimePicker(Self.ActiveControl) = DatetimePicker1) then
  // aqui lanzamos los eventos de teclado
else
   ShowMessage(' Haga clic primero en el Control de fechas');

Quizás en este caso me parece más acertada la solución de roman. Normalmente esos SpeedButtons se colocan cerca del TDateTimePicker, por tanto el usuario al pulsar dicho botón, espera que automáticamente cambie ese control y no otro.

Para hacer más intuitiva la cosa, puedes poner un GroupBox y dentro el TDatetimePicker y los dos SpeedButton, así quedará más claro al usuario como funciona.

Saludos