ТАЙМЕР на 4 пакета

[KeL]

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

type
            TForm1 = class(TForm)     //кусок из примитивной 
    Panel1: TPanel;                  //проги - секундомер,
    Timer1: TTimer;                  //где используется таймер
    procedure Timer1Timer(Sender: TObject);  
var                          
  Form1: TForm1;min,sec:integer;    
procedure TForm1.Timer1Timer(Sender: TObject);
var str,st:string;
begin
        if sec = 59 then  //вырезка из просто таймера
        begin               //тебе все не надо главное вот делаеш таймер
        inc(min);         //а там уже если секунды/минуты равны, тогда...
        sec:=0;
        end
        else
        if sec mod 2=0
        then st :=' : '+st
        else st :='   '+st;
        inc(sec);
        if Length(st) = 1 then st:='0'+st;
        str:=str+ IntToStr (sec);
        st:=st+ IntToStr (min);
        if Length(str) = 1 then str:='0'+str;
        if sec mod 2=0
        then str :=' : '+str
        else str :='   '+str;
        str:=IntToStr (min) +str;
        Panel1.Caption:=str;
        end