Labels in ein Array?

[Splinter]

Delphi-Quellcode:

procedure sichtbareTageeins; 
var i: Integer;

Procedure tagsichtbar(Mytag: Tlabel);
 begin
  If Mytag.Visible
   Then Form1.Memo2.lines.Add(Mytag.name);
 end;

begin
 for i := 1 to 7 do
  tagsichtbar(findcomponent('Label'+inttostr(i)) as TLabel);
end;

das was nightsahde schon gepostet hat