Simular la pulsación de una tecla sobre un componente sin saber quien tiene el foco.

var
  x,tecla:integer
begin
  for x:=0 to ComponentCount-1 do
    if (Componentes[x] is TEdit) and
       (TEdit(Components[x]).Focused=True)then
           PostMessage(TEdit(Components[x]).handle,WM_KEYDOWN,tecla,0);

Donde « tecla » almacenará VK_RETURN, VK_LEFT, o la virtual que se quiera.

Evidentemente sólo es válido para los componentes de la clase TWinControl y habrá que poner tantos « is loquesea » como utilice.