Определить одновременное нажатие нескольких клавиш

[r3code]

Сделю ка я пунктик "Выделить все" для таблички
// выделить все
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If ((GetKeyState(VK_CONTROL) AND 128)=128) and
((GetKeyState(ord('A')) AND 128)=128)
then
ShowMessage('CTRL+A');
end;