procedure SimKey(VK: BYTE; Down: boolean);
var
Input: TInput;
begin
ZeroMemory(@Input, sizeof(Input));
Input.iType:= INPUT_KEYBOARD;
Input.ki.wVk:= VK;
Input.ki.wScan:= MapVirtualKey(VK, 0);
Input.ki.dwFlags:= KEYEVENTF_EXTENDEDKEY;
if not Down then
Input.ki.dwFlags:= Input.ki.dwFlags or KEYEVENTF_KEYUP;
windows.SendInput(1, Input, sizeof(TInput));
end;