[OnKeyDown]
 if Flag then
  Exit;
 Flag := True;
 〜 処理 〜

[OnKeyUp]
 Flag := False;
 〜 処理 〜