Залипание клавиши....

[Altera]

Привет всем!
У меня возникла такая проблема:
Есть код

procedure exampleProc;
var
...
multiNotPress: boolean;
...
begin
   ...
   multiNotPress := getasynckeystate(KeyIndex) = 0;

   for с := 0 to ... do
   begin
       ...
      if multiNotPress then 
      _Action_//Действие
      ...
   end;
   ...
end;

Ну тут вроде всё работает, если клавиша KeyIndex не нажата то должно выполниться екое децствие _Action_; Но дело в том, что после того, как процедура exampleProc вызвана, и клавиша с индексом KeyIndex была нажата, то при повторном вызове действие _Action_ не выполняеться. При третьем вызове, (клавиша не нажата) всё ОК. И ещё, если нажать, потом отпустить клавишу KeyIndex, а потом вызвать exampleProc то дроцедура видит KeyIndex как нажатую клавишу.
Что делать?

[Ozerich]

Скажу честно-это какое то извращение...
Используй месагу WM_KEYDOWN

[Altera]

Сообщение от Ozerich

Скажу честно-это какое то извращение...
Используй месагу WM_KEYDOWN

Господи, это вообще не в тему.
И потом, я уже решил проблему...
Тема закрыта!