Эмуляция нажатия клавиши при отметке Checkbox

[delphi_beginner]

Есть 3 компонента Checkbox

Надо, чтобы при отметке 1-ого эмулировалось нажатие и удержание клавиши [

при отметке 2-ого эмулировалось нажатие и удержание клавиши ]

при отметке 3-его эмулировалось нажатие и удержание клавиши Alt

Большое спасибо заранее всем за любую оказанную помощь.

[JTG]

procedure SetKeyState(const Code: Integer; b: Boolean);
var
  State: TKeyboardState;
begin
  ZeroMemory(Pointer(@State), SizeOf(State));
  GetKeyboardState(State);
    if (Byte(Ord(b)) <> KeyState[ACode]) then
     begin
           Keybd_event(Code, $45, KEYEVENTF_EXTENDEDKEY, 0);
           Keybd_event(Code, $45, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0);
          KeyState[Code ] := Ord(b);
          SetKeyboardState(State);
     end;
end;

Code - код клавиши

В событии Checkbox.onchange
пиши SetKeyState(VK_ALT,checkbox.checked );

(для [ и ] ищи коды в справке)
Должно работать, но не знаю точно, написано "с листа"

[delphi_beginner]

Не пашет. =(

[Wolfheart]

Попробуй прописать в собитии Checkbox.OnClick

Keybd_event(VK_LMENU, 0, 0, 0);