Zugriff auf Scrollbox Objekte

[meg91]

hab das ganze grad ma in einem andere kleinen Prog getestet und es funzt super, nur wenn ichs bei mir einbaue bekomm ich immer nen Fehler während der Laufzeit
hier mal ein schnipsel source

Delphi-Quellcode:

var
  dateinamen_label: Array of TLabel;
  zaehler :integer = -1;
implementation

{$R *.dfm}

procedure TForm1.list_results(picture: string; text_1:string; text_2:string);
begin
zaehler := zaehler + 1;
setlength(dateinamen_label, zaehler + 2);
 {...}
with dateinamen_label[zaehler + 1] do
begin
  dateinamen_label[zaehler + 1] := TLabel.Create(self);
  Parent := ScrollBox1;
  Cursor := crHandPoint;
  OnClick := p_openlink;
  Tag := zaehler + 1;
  Font.Color := $009A570C;
  Font.Style := [fsBold, fsUnderline];
  Caption := text_1;
  Top := 40 * zaehler;
  Left := 30;
end;
 {...}
end;

procedure TForm1.p_openlink(Sender: TObject);
var
  i_labelnumber: integer;
begin
  if Sender is TLabel then
  i_labelnumber := (Sender as TLabel).Tag;

  ShellExecute(0,'open', pchar(linkliste[i_labelnumber]),nil,nil,SW_SHOWNORMAL);;
end;

aus irgendeinem Grund erstellt der das Label nicht