Замена действий клавиш клавиатуры

  slp:=25;
  repeat
    while GetKeyState(hhotkey)<0 do begin
      SimulateKeyDown(81); Sleep(slp);//Q
      SimulateKeyUp(81); Sleep(slp);
      SimulateKeyDown(87); Sleep(slp);//W
      SimulateKeyUp(87); Sleep(slp);
    end;
  until Terminated;

const
  ExtendedKeys: set of Byte = [VK_INSERT, VK_DELETE, VK_HOME, VK_END, VK_PRIOR, VK_NEXT, VK_LEFT, VK_UP, VK_RIGHT, VK_DOWN, VK_NUMLOCK];
 
procedure SimulateKeyDown(Key: byte);
var flags: DWORD;
begin
  if Key in ExtendedKeys then flags := KEYEVENTF_EXTENDEDKEY
  else flags := 0;
  keybd_event(Key, MapVirtualKey(Key, 0), flags, 0);
end;
 
procedure SimulateKeyUp(Key: byte);
var flags: DWORD;
begin
  if Key in ExtendedKeys then flags := KEYEVENTF_EXTENDEDKEY
  else flags := 0;
  keybd_event(Key, MapVirtualKey(Key, 0), KEYEVENTF_KEYUP or flags, 0);
end;