Як натиснути клавішу програмно?

Це можна зробити за допомогою описаної нижче процедури:

procedure 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);