[lostbananan]

Спасибо за предлыдущую подсказку. Возник еще один вопрос, код такой:

Код:

  for i := 1 to 11 do
  begin
    pb := TProgressBar(FindComponent('ProgressBar' + IntToStr(pBar)));
    if pb<>Nil then
    begin
      pb.Visible := false;
      pb.Destroy;
    end;
  end;

мно, Прогрессбары остаются на форме...
Мне надо чтобы они исчезли, я же присваиваю видимости фальсе, Почему прогресбары не исчезают*