Нужно сделать счетчик, который считает количество колебаний математического маятника

Нужно сделать счетчик, который считает количество колебаний математического маятника. Можно выводить в Edit или Label.
 
var
  Form1: TForm1;     xa,ya,r,a,b,q,t,x,y:real;
  n:integer;
 
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
  timer1.enabled:=true;
    timer2.enabled:=true
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  timer1.enabled:=false;
  timer2.enabled:=false;
  with image1.canvas do
      begin
      brush.color:=clwhite;
      rectangle(0,0,300,300);
      end;
end;
 
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  r:=strtofloat(edit3.text);
  xa:=strtofloat(edit1.text);
  ya:=strtofloat(edit2.text);
  q:=3.14*a/180;
  t:=3.14*b/180;
  with image1.canvas do
    begin
      pen.color:=clblack;
      if q<=3.14 then
      begin
        moveto(round(xa),round(ya));
        x:=xa+R*cos(q);
     y:=ya+R*sin(q);
     LineTo(Round(x),Round(y));
     brush.color:=clred;
     Ellipse(Round(x)-10,Round(y)-10,Round(x)+10,Round(y)+10);
     a:=a+1;
     b:=180;
    end;
    if (q>=pi)  then
    begin
     MoveTo(round(xa),round(ya));
     x:=xa+R*cos(t);
     y:=ya+R*sin(t);
     LineTo(Round(x),Round(y));
     brush.color:=clred;
     Ellipse(Round(x)-10,Round(y)-10,Round(x)+10,Round(y)+10);
     b:=b-1;
     if t=0 then a:=0;
      end;
    end;
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
begin
  with image1.canvas do
    begin
    pen.color:=clbtnface;
    moveto(round(xa),round(ya));
    lineto(round(x),round(y));
    brush.color:=clred;
    ellipse(round(x)-10, round(y)-10, round(x)+10, round(y)+10);
    end;
end;
 
procedure TForm1.Timer3Timer(Sender: TObject);
begin
     with image1.canvas do begin
    brush.color:=clwhite;
    rectangle(0,0,300,300);
  end;
end;
 
 
 
 
end.