Гляди) Кидаешь на форму кнопку Button1 и компонент Timer1, в свойствах Timer'а устанавливаешь знаечения:
Код:
Enabled в False // активность
Interval в 10000 // интервал срабатывания в мс
Затем пишешь нижеследующие проседуры
Код:
var
Count: Integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
Count := 0; // сброс
Timer1.Enabled := True; // активация таймера
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False; // выключаем таймер
// выводим результат
ShowMessage(Format('По форме кликнуто %d раз(а)', [Count]));
end;
procedure TForm1.FormClick(Sender: TObject);
begin
// наращивем значение
Inc(Count)
end;