Срабатывание таймера после остановки первого еще несколько раз

begin
  PIH.Enabled := True;
  BufferClock.Enabled:=True;
end;

unit MainU;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button3: TButton;
    PIH: TTimer;
    BufferClock: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure PIHTimer(Sender: TObject);
    procedure BufferClockTimer(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
qfirst,//Число срабатывания первого таймера.
qsecond,//Число срабатывания второго таймера.
qcount//Счётчик срабатывания второго таймера до 3 раз по сле остановки первого.
:integer;
 
implementation
 
{$R *.dfm}
 
//Создание формы. Начало программы.
procedure TForm1.FormCreate(Sender: TObject);
begin
//Отключаем первый и второй таймеры.
pih.Enabled:=false;
bufferclock.Enabled:=false;
end;
 
//Нажатие кнопки "Пуск".
procedure TForm1.Button1Click(Sender: TObject);
begin
//Задания нуля у счётчиков.
qfirst:=0;
qsecond:=0;
qcount:=0;
//Включение первого и второго таймеров.
pih.Enabled:=true;
bufferclock.Enabled:=true;
end;
 
//Нажатие кнопки "Стоп".
procedure TForm1.Button2Click(Sender: TObject);
begin
//Отключение первого таймера.
pih.Enabled:=false;
end;
 
//Срабатывание первого таймера.
procedure TForm1.PIHTimer(Sender: TObject);
begin
//Увеличение количества срабатывания первого таймера на 1.
qfirst:=qfirst+1;
//Вывод количества срабатывания первого таймера.
label2.Caption:=inttostr(qfirst);
end;
 
//Срабатывание второго таймера.
procedure TForm1.BufferClockTimer(Sender: TObject);
begin
//Увеличение количества срабатывания второго таймера на 1.
qsecond:=qsecond+1;
//Вывод количества срабатывания второго таймера.
label4.Caption:=inttostr(qsecond);
//Если первый таймер отключён, то увеличиваем счётчик на 1.
if not pih.Enabled then
qcount:=qcount+1;
//Если счётчик равен 3, то есть второй таймер сработал на 3 раза больше первого,
//то отключаем второй таймер.
if qcount=3 then
bufferclock.Enabled:=false;
end;
 
//Нажатие кнопки "Закрыть"
procedure TForm1.Button3Click(Sender: TObject);
begin
//Выход из программы.
close;
end;
 
end.