Simular pulsacion de tecla

[roman]

Prueba con:

var
  Input: TInput;

begin
  Input.Itype := INPUT_KEYBOARD;
  Input.ki.wVk := VK_TAB; // Tecla a simular

  // Presionar tecla
  SendInput(1, Input, SizeOf(Input));

  // Soltar tecla
  Input.ki.dwFlags := KEYEVENTF_KEYUP;
  SendInput(1, Input, SizeOf(Input));

Ahora que si lo que buscas es cómo pasar el foco de un control a otro quizá te interese más el método SelectNext del formulario.

// Saludos