Посчитать количество нажатий кнопки — Delphi(Делфи)

В обработчике события OnClick для объекта Button написать:

var
  x: Integer = 0;
.. .

  procedure TForm1.Button1Click(Sender: TObject); // это сам оброботчик :)

begin

  if x <= 100 then
    Inc(x);

end;

Leave a Comment