[angvelem]

Опять поторопился

Код:

var
  pBar : Integer = 1;   

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

Я конечно недоглядел, но нужно и свою голову на плечах иметь.
Теперь не говори, что опять что-либо не заработает - специально протестировал.

P.S. Alegun, зачем лишние телодвижения с флагом и ненужные проверки?