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