[lostbananan]

у меня на форме динамически создаэтся 11 прогрессбаров:

Код:

      bars[i] := TProgressBar.Create(Form1);
      bars[i].Parent := Form1;
      bars[i].Left := 22;
      bars[i].Width := 521;
      bars[i].Top := 22+40*i;

На этой же форме есть таймер. при срабатывании таймера надо увеличить позицию бара на 1, как найти эти бары?
Пробывал так:

Код:

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

Код компилируется - нормально он написан /без ошибок/ но в прогресбарах на форме позиция не меняется...
Ясно что я неправильно выбираю прогресбары.
Как их ПРАВИЛЬНО выбирать?