[Zergatul]

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

Что не ясного, книжку в руки и вперед
//хотя не пойму, а тебе не легче делать делай (задержку) и зициклить процес

type
            TForm1 = class(TForm)     //кусок из примитивной 
    Panel1: TPanel;                  //проги - секундомер,
    Timer1: TTimer;                  //где используется таймер
......

Код не полный, не проинициализироан таймер.

var
  Timer1 : TTimer; 
  q : Integer;  // счетчик 
procedure Init;
begin
  Timer1 := TTimer.Create(nil);
  Timer1.Interval := 1000;  // задержка таймера 1к мс
  Timer1.Enabled := False;
  Timer1.OnTimer := @OnTimer;   // имя процедуры, которая будет выполнятся при проходе таймера
end;
procedure Free;
begin
  Timer1.Free;
end;
procedure OnTimer;
begin
  // здесь код, который должен повторятся
  Inc(q);
  if q = 4 then  // если выполнилось уже 4 раза, то останавливаем таймер
    Timer1.Enabled := False;
end;
begin
  if {умова запуска таймера} then
    begin
      Timer1.Enabled := True;
      q := 0;  //счетчик ставим у 0
    end;
end.