[angvelem]

Хватит и одного таймера

Код:

var
  pBar : Integer = 1;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  pb : TProgressBar;
begin
  pb := FindComponent('ProgressBar' + IntToStr(pBar));
  pb.Position := pb.Position + 1;
  if pb.Position >= 100 then
    inc(pBar);
  if pBar > 11 then
    Timer1.Enabled := False;
end;