Labels in ein Array?

[Splinter]

Hi
ich habe in meinem projekt paar labels die je nachdem ob sie sichtbar sind oder nicht in ein memo hinzugefügt werden sollen(für effekte -PieTools-)


ich könnte auch 7x
tagsichtbar(Label1)
tagsichtbar(Label2)...

usw schreiben aber es müsste doch auch irgendwie mit nem array gehen.
ich hab dann das hier gemacht aber das mag delphi anscheinend irgendwie nich...

Delphi-Quellcode:

procedure sichtbareTageeins;
var a: Array[Label1..label7] of Tlabel;
    i: Integer;

 Procedure tagsichtbar(tag: Tlabel;);
  begin
  If Unit1.Form1.tag.Visible = true
   Then Unit1.Form1.Memo2.lines.Add(tag.name);
  end;

begin
 For i := 1 to 7 DO
  tagsichtbar(a[i])
end;

kann ich in ein array keine labels reinschreiben oder wo liegt mein fehler?

sry wenn ich mit meinem newbgeschwätz nerve aber hab grad erst angefangen mit delphi und weiß manchmal einfach nicht was ich falsch mache =)