Simular la pulsación de una tecla cualquiera en el control activo de un form. No sé cual es el control que tiene el foco.

( José Luis Freire)

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.