Не нужен лишний таймер, т.к. при нажатой клавише таймер клавиатуры сам повторяет код этой клавиши. Нажмите какую-нибудь клавишу и смотрите на заговолок формы:
Код:
var
i: Integer = 0;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
Inc(i);
Caption:= IntToStr(i);
end;
Я, правда, не понял, это клавиша клавиатуры или нарисованная кнопка?
Всё, дошло, это "левая клавиша мыши". Нет, чтобы сразу расшифровать!