Tlabel

[Artificial]

При нажатии на кнопку надо скрыть все лейблы, которые находятся на форме :
Каждый лейбл имеет вид AboutCreditLabel1..5

for i:=1 to 5 do begin
                      AboutCreditsLabel[i].visible:=false;
                  end;

Как можно организовать что-то типо, либо другой выход.
Спасибо.

[Artificial]

Просмотры все идут, а помощи нету.)

[N!ckeL]

for i:=1 to 5 do begin
AboutCreditsLabel[i].visible:=false;
end;

что бы так делать нужен массив TLabel, динамически создающийся.
нужно написать что-то вроде

for i:=1 to 5 do
 TLabel('label'+inttostr(i) ).Visible:=false;

Хотя не уверен что будет работать..

ps: цикл тормозит программу, раз label'ов всего 5 можно:

AboutCreditsLabel1.visible:=false; 
AboutCreditsLabel2.visible:=false;
AboutCreditsLabel3.visible:=false;
AboutCreditsLabel4.visible:=false;
AboutCreditsLabel5.visible:=false;

[Artificial]

  
      procedure TAboutForm.AboutButtonCreditsClick(Sender: TObject);
      begin
      AboutImage.visible:=false;
      for i:=1 to 5 do begin
      TLabel(FindComponent('TLabel' + IntToStr (I))).Visible := true;
      end;
   
      end;

Сделал уже так, спасибо.

[Баламут]

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
for i := 0 to Form1.ControlCount - 1 do
begin
if (Form1.Controls[i] is TLabel) then
(Form1.Controls[i] as TLabel).Visible := false;
end;
end;