Как программно нажать клавишу

К сожалению работает хорошо, только когда фокус у вызывающего окна, в противном случае может глючить

procedure
 TForm1.SetKey(Key:Integer);
begin

  keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY or
 KEYEVENTF_KEYUP,0);
  keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY,0);
  keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY or
 KEYEVENTF_KEYUP,0);
end
;

Применение

SetKey(VK_SCROLL);
SetKey(VK_CAPITAL);

Другое по теме:

• Эмуляция нажатия клавиш
• Установка ловушки для клавиатуры
• Убрать программу из списка Ctrl+Alt+Delete