loops - Use variables for object name in Delphi

Question

I'm trying to change the caption of many labels using regular way:

form1.label1.caption := '1';
form1.label2.caption := '2';
form1.label3.caption := '3';
form1.label4.caption := '4';
form1.label5.caption := '5';
form1.label6.caption := '6';
form1.label7.caption := '7';
form1.label8.caption := '8';
...

How can I use For and assign i to label name like Label[i]? Something like this:

for i := 1 to 50 do
   begin
     form1.label[i].caption := Inttostr(i);
   end;

And what is the best way to change too many object parameters (In this case caption)?

Answer 1

If you are sure you have 50 labels label1, label2 .. label50
The solution could be like this:

var lbl: TLabel;
for i:=1 to 50 do
begin
    lbl := FindComponent('Label'+IntToStr(i)) as TLabel;
    lbl.Caption := IntToStr(i);
end;