Cout для НАЖАТИЯ горячей КЛАВИШИ

[beegl]

привет, подскажите пожалуйста, как поставить Cout для НАЖАТИЯ горячей КЛАВИШИ?

 procedure TForm1.RegHotKeyEx;
const
     VK_EscapeEx    = $1B;
     MOD_SHIFTs = 4;
begin
  DoubleBuffered := true;
  id1 := GlobalAddAtom('Hotkey1'); // закрыть
  RegisterHotKey(Handle, id1, 0, vk_EscapeEx);
  id2 := GlobalAddAtom('Hotkey2'); //start
  RegisterHotKey(Handle, id2,  0,Ord('S'));
  id3 := GlobalAddAtom('Hotkey3'); // about
  RegisterHotKey(Handle, id3,  0,Ord('A'));
  id4 := GlobalAddAtom('Hotkey4'); // свернуть
  RegisterHotKey(Handle, id4,  0,Ord('H'));
  id5 := GlobalAddAtom('Hotkey5'); // развернуть
  RegisterHotKey(Handle, id5,  0,Ord('R'));
end;

нужно для:

  id2 := GlobalAddAtom('Hotkey2'); //start
  RegisterHotKey(Handle, id2,  0,Ord('S'));

Частота нажатия клавиши S (в период: 4-6 секунд, если > 2-x, то
MessageBox(GetForegroundWindow(),'Вы часто нажимали S','AdvMsg',MB_OK or MB_ICONWARNING) )

что-то в этом вроди:

if GetKeyState(Ord('S')) > 2 then

Или какое сообщение отвечает за количество нажатия кнопки (Button1)?

Это не реагирует:

if  Button1.Perform(WM_LBUTTONDOWN, 0, 0) > 1 then
// двойные-щелчки кнопка мыши права тогда как курсор - в области клиента окна

[NetSpace]

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

[beegl]

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

таймер в помощь - пусть он секунды считает

а что в таймене проверять, какой код писать?

написал:

if  VrAniButton1.Perform(WM_LBUTTONDOWN, 0, 0) > 1 then
MessageBox(GetForegroundWindow(),'Вы часто нажимали S','AdvMsg',MB_OK or MB_ICONWARNING);

и постоянно нажимает кнопку )

вот: