OnKeyDown - Taste Halten verhindern

[olee]

Hi ich hab ein kleines Problem:

Ich will im OnKeyDown einen DblKlick von Tasten abfragen.

Mein Problem ist jetzt, dass OnKeyDown beim haten einer Taste nach ner Weile mehrfach
hintereinander ausgelöst wird
(Also wie im Texteditor wenn man z.B. A hält kommt erst eins und nach ner Weile viele As)

Hat einer ne Idee, wie ich das verhindern kann?

Delphi-Quellcode:

[OnKeyDown]
begin
  If (LastKey = Key) and (LastKeyDownTime + 500 > GetTickCount) then
  begin
    DblPressedKey := Key;
    exit;
  end;
  LastKeyDownTime := GetTickCount;
  LastKey         := Key;
end;

MFG