Установил хук:

HookHandle := SetWindowsHookEx(wh_Keyboard, @Key_Hook,  hInstance, 0);

При нажатии клавиш вызывается функция

function Key_Hook(Code: integer; wParam: word;
  lParam: Longint): Longint; stdcall; export;

  if (Code >= 0) then
  begin
   case wParam of
      VK_SHIFT: messageboxa(0,'VK_SHIFT','',0);
      ord('A'): messageboxa(0,'A','',0);
   end;
.........

Таким образом я могу отловить нажатие клавиш Shift или "A". А как мне отловить одновременное нажатие этих клавишь (Shift+A)?
И как тут отловить события WM_KEYDOWN, WM_KEYUP?