Label zur laufzeit erzeugen

[Tigermoon]

habe label zur laufzeit erstellt
wo ist da der fehler

Delphi-Quellcode:

....
var
  FMain: TFMain;
  my_File: TStringList;

  LDatum_out, LHandling_out, Lcodeletter_out, Lreturncode_out: array[1..10] of TLabel;

implementation
....

Delphi-Quellcode:

procedure TFMain.FormCreate(Sender: TObject);
var
zaehlen:integer;
begin
  while zaehlen <= 10 do
  begin
     Ldatum_out[zaehlen] := TLabel.Create(fMain);
     Ldatum_out[zaehlen].Parent := fmain;

     LHandling_out[zaehlen] := TLabel.Create(fMain);
     LHandling_out[zaehlen].Parent := fmain;

     Lcodeletter_out[zaehlen] := TLabel.Create(fMain);
     Lcodeletter_out[zaehlen].Parent := fmain;

     Lreturncode_out[zaehlen] := TLabel.Create(fMain);
     Lreturncode_out[zaehlen].Parent := fmain;

zaehlen := zaehlen +1;
  end;
end;

Delphi-Quellcode:

procedure TFMain.ISearchClick(Sender: TObject);
begin
  Datei_durchsuchen;
end;     <-- hier zeigt er ihn an

Delphi-Quellcode:

procedure TFMain.Datei_durchsuchen;
var
  zaehlen, top:integer;
  index_of_user, begin_user, user_time,code_letter,return_code: integer;
begin

  zaehlen := 1;
  top := 60;

  while zaehlen <= 10 do
  begin
  
      if  my_file.IndexOf('java.lang.String userName="'+EUsername.Text+'",') <> -1 then
      begin

      index_of_user := my_file.IndexOf('java.lang.String userName="'+EUsername.Text+'",');
      
      user_time := index_of_user - 32;
      begin_user := index_of_user - 3;
      code_letter := index_of_user + 36;
      return_code := index_of_user + 37;

      my_file.Strings[begin_user];

      Ldatum_out[zaehlen].Caption := inttostr(user_time);
      Ldatum_out[zaehlen].Top := top;

      LHandling_out[zaehlen].caption := inttostr(begin_user);
      LHandling_out[zaehlen].top := top;

      Lcodeletter_out[zaehlen].Caption := inttostr(code_letter);
      Lcodeletter_out[zaehlen].top := top;

      Lreturncode_out[zaehlen].Caption := inttostr(return_code);
      Lreturncode_out[zaehlen].top := top;
      
      end;
    zaehlen := zaehlen + 1;
    top := top + 20;

  end;

end;