[goodvin1709]

const
  TimerInterval=100;
var
  i:byte;
  Timer1:TTimer;

procedure Init;
begin
  I:=0;
  Timer1:= TTimer.Create(nil) ;
  Timer1.Interval := TimerInterval ;
  Timer1.Enabled := False ;
  Timer1.Ontimer := @OnTimer ;
end;

procedure Free;
begin
  Timer1.free;
end;
Procedure OnTimer;
begin
  Timer1.enabled:=false;
  I:=i+1;
  case i of
    1: begin Пакет1 end;
    2: begin Пакет2 end;
    3: begin Пакет2 end;
    4: begin Пакет2 end;
    5: begin Пакет2 end;
    6: begin Пакет2 end;
    7: begin Пакет2 end;
    8: begin Пакет2 end;
    9: begin Пакет2 end;
  end;
  if i<10 then 
    timer1.enabled:=True;
  else
    timer1.free;
end;

begin
end.