procedure EmulateKeyPress(VKCode: Byte);
var
  inp: packed array [0..1] of TInput;
begin
  //FillChar(inp[0], SizeOf(TInput), 0);
  //FillChar(inp[1], SizeOf(TInput), 0);
  
  inp[0].Itype := INPUT_KEYBOARD;
  inp[0].ki.wVk := VKCode;
  inp[0].ki.dwFlags := 0;
  
  inp[1].Itype := INPUT_KEYBOARD;
  inp[1].ki.wVk := VKCode;
  inp[1].ki.dwFlags := KEYEVENTF_KEYUP; 
  
  SendInput(2, inp[0], SizeOf(TInput));
end