Billentyüzet lenyomásának imitálása

Ha a Timer1 alapban van beállítva, másodpercenként egy nagy A betüt nyom, mindegy, hogy milyen applikációban van a windows.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
keybd_event(VK_SHIFT, MapVirtualKey(VK_SHIFT, 0), 0,0);
(shift le)
keybd_event(65,0, 0, 0); (a -betü le)
keybd_event(65,0, KEYEVENTF_KEYUP, 0); (a -betü fel)
keybd_event(VK_SHIFT, MapVirtualKey(VK_SHIFT, 0), KEYEVENTF_keyup,0);
(shift fel)
end;