Убрать многократный вызов OnKeyPress

[DelhiProgramer]

Извините за дебильный вопрос но что-то не лезет в голову, как сделать, чтобы когда человек держит клавишу нажатой, OnKeyPress не происходил всё время много раз.
То есть раз нажал и процедура выполняется один раз, пока не отпустишь и снова не нажмёшь

[Пепел Феникса]

сами засекайте через KeyDown и KeyUp.
ибо это функция системы.

[DelhiProgramer]

Спасибо, я попроще придумал

var
ispress: boolean;

...

procedure Form1.Onkeypress...
...
if ispress=true then exit else ispress:=true;
...

proedure Form1.OnKeyUp...
...
ispress:=false;
...