[Alegun]

Код:

var
pBar: integer = 1;
flg : boolean = false;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if flg then
   begin
  Inc(pBar);
  flg:= false;
   end;

  with (FindComponent('ProgressBar' + IntToStr(pBar)) as TProgressBar) do
begin
  Position:= Position + 1;
  if (Position >= 100) and (pBar <= 11) then flg:= true;
  if (pBar >= 11) and (Position >= 100) then Timer1.Enabled:= False;
  end;
end;