[Cognizer]

Вроде бы как пришло в мою голову решение проблемы:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

var   i : byte;   keyboardState,keyboardStateNew : array[0..255] of bool;   next : bool; ... begin    for i := 65 to 90 do //Проверка клавиш 'a'..'z'     begin      if GetASYNCKeyState(i) <> 0 then keyboardStateNew[i] := True else keyboardStateNew[i] := false;      if (keyboardState[i] <> keyboardStateNew[i]) then next := true;      keyboardState[i] := keyboardStateNew[i];     end;     if next then      ...     next := false end;

Теперь работает как одно нажатие.
Ладно, спасибо всем за помощь)