Delphi-PRAXiS - Delphi Labels in ein Array?

Delphi-Quellcode:

			interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls, ComCtrls, TabNotBk, PieEffekt, PieComboBox, inifiles;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    .....

    ListBox1: TListBox;

    Memo4: TMemo;

    Edit2: TEdit;

    procedure Edit1Change(Sender: TObject);

    procedure ListBox1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure Label1Click(Sender: TObject);

   ....

    procedure Button2Click(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private

    { Private declarations }

    SetPath :string;

    procedure Notizalter;

  public

    { Public declarations }

  end;

const Startjahr = 2004;

var

  memo, s: String;

  Form1: TForm1;

  EingabeJahr: Integer = 2004;

  ersterTagJ, ersterTagM: Integer;

  code : Integer;

  searchRec: TSearchRec;

implementation

{$R *.dfm}

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;

die relevanten labels und so is alled definiert (hab ich nur gekürzt)(hier kann der fehler nich liegen weil wenn ich die prozedur rausnehme läuft alles ohne prob)

[edit=Luckie]Delphi-Tags ergänzt. Mfg, Luckie[/edit]