Komponenten dynamisch erstellen

[Delphi Star]

Ich versuche mit folgendem Code eine ganze Reihe von Komponenten zu erstellen. Allerdings funktioniert es nicht: Sie werden nicht angezeigt, allerdings kann ich beispielsweise die Werte Top und Left abfragen. Sobald ich das allerdings mit Parent versuche, bekomme ich eine Zugriffsverletzung. Ich habe keine Ahnung warum es nicht funktioniert und hoffe nun auf eure Hilfe.

Delphi-Quellcode:

var
  Form1: TForm1;
  arraytabsheet: array of ttabsheet;
  arrayscrollbox: array of tadvscrollbox;
  arraymarkerback: array of tshape;
  arraymarker: array of tshape;
  arrayfreiraum: array of timage;
  arrayzurueck: array of timage;
  arraysavesw: array of timage;
  arraysave: array of timage;
  arrayvollbildsw: array of timage;
  arrayvollbild: array of timage;
  arraybildgross: array of timage;
  arrayhintergrund: array of timage;
  arrayinfobutton: array of tjvtransparentbutton;

//...
  setlength(arraytabsheet, ordner.items.count);
  setlength(arrayscrollbox, ordner.items.count);
  setlength(arraymarkerback, ordner.items.count);
  setlength(arraymarker, ordner.items.count);
  setlength(arrayfreiraum, ordner.items.count);
  setlength(arrayzurueck, ordner.items.count);
  setlength(arraysavesw, ordner.items.count);
  setlength(arraysave, ordner.items.count);
  setlength(arrayvollbildsw, ordner.items.count);
  setlength(arrayvollbild, ordner.items.count);
  setlength(arraybildgross, ordner.items.count);
  setlength(arrayhintergrund, ordner.items.count);
  setlength(arrayinfobutton, ordner.items.count);

  for i3:=0 to ordner.Items.Count-1 do
  begin
    if ordner.Items.Strings[i3]<>'Test' then
    begin
      arraytabsheet[i3]:= ttabsheet.Create(seiten);
      arraytabsheet[i3].Name:= 'Bildersektion_'+ordner.Items.Strings[i3];
      arraytabsheet[i3].Parent:=seiten;
      arraytabsheet[i3].TabVisible:=true;

      arrayhintergrund[i3]:= timage.Create(findcomponent('Bildersektion_'+ordner.Items.Strings[i3]) as ttabsheet);
      arrayhintergrund[i3].Name:='Bildersektion_'+ordner.Items.Strings[i3]+'_Hintergrund';
      arrayhintergrund[i3].AutoSize:=true;
      arrayhintergrund[i3].Height:=600;
      arrayhintergrund[i3].Width:=900;
      arrayhintergrund[i3].Picture:= Bildersektion_Test_Hintergrund.Picture;

      arrayscrollbox[i3]:= tadvscrollbox.Create(findcomponent('Bildersektion_'+ordner.Items.Strings[i3]) as ttabsheet);
      arrayscrollbox[i3].Name:='Bildersektion_'+ordner.Items.Strings[i3]+'_Scrollbox';
      arrayscrollbox[i3].BevelInner:=bvnone;
      arrayscrollbox[i3].BevelOuter:=bvnone;
      arrayscrollbox[i3].BorderStyle:=bsnone;
      arrayscrollbox[i3].Height:=576;
      arrayscrollbox[i3].Width:=286;
      arrayscrollbox[i3].Left:=602;
      arrayscrollbox[i3].Top:=8;

      arraysavesw[i3]:=timage.Create(findcomponent('Bildersektion_'+ordner.Items.Strings[i3]) as ttabsheet);
      arraysavesw[i3].Name:='Bildersektion_'+ordner.Items.Strings[i3]+'_Save_SW';
      arraysavesw[i3].Height:=48;
      arraysavesw[i3].Width:=48;
      arraysavesw[i3].Left:= 504;
      arraysavesw[i3].Top:= 536;
      arraysavesw[i3].Picture:= Bildersektion_Test_Save_SW.Picture;

      arraysavesw[i3]:=timage.Create(findcomponent('Bildersektion_'+ordner.Items.Strings[i3]) as ttabsheet);
      arraysavesw[i3].Name:='Bildersektion_'+ordner.Items.Strings[i3]+'_Save';
      arraysavesw[i3].Height:=48;
      arraysavesw[i3].Width:=48;
      arraysavesw[i3].Left:= 504;
      arraysavesw[i3].Top:= 536;
      arraysavesw[i3].OnClick:=Bildersektion_Test_SaveClick;
      arraysavesw[i3].Picture:= Bildersektion_Test_Save.Picture;

      arraysavesw[i3]:=timage.Create(findcomponent('Bildersektion_'+ordner.Items.Strings[i3]) as ttabsheet);
      arraysavesw[i3].Name:='Bildersektion_'+ordner.Items.Strings[i3]+'_Bildgross';
      arraysavesw[i3].Height:=497;
      arraysavesw[i3].Width:=585;
      arraysavesw[i3].Left:= 13;
      arraysavesw[i3].Top:= 64;
      arraysavesw[i3].Center:=true;
      arraysavesw[i3].Proportional:=true;
      arraysavesw[i3].Stretch:=true;

      arrayinfobutton[i3]:=tjvtransparentbutton.Create(findcomponent('Bildersektion_'+ordner.Items.Strings[i3]) as ttabsheet);
      arrayinfobutton[i3].Name:='Bildersektion_'+ordner.Items.Strings[i3]+'_InfoButton';
      arrayinfobutton[i3].Height:=16;
      arrayinfobutton[i3].Width:=441;
      arrayinfobutton[i3].Left:= 456;
      arrayinfobutton[i3].Top:= 584;
      arrayinfobutton[i3].FrameStyle:=fsnone;
      arrayinfobutton[i3].BorderWidth:=0;
      arrayinfobutton[i3].Cursor:=crHandPoint;
      arrayinfobutton[i3].OnClick:=Bildersektion_Test_InfoButtonClick;

      arraysavesw[i3]:=timage.Create(findcomponent('Bildersektion_'+ordner.Items.Strings[i3]) as ttabsheet);
      arraysavesw[i3].Name:='Bildersektion_'+ordner.Items.Strings[i3]+'_Vollbild';
      arraysavesw[i3].Height:=48;
      arraysavesw[i3].Width:=48;
      arraysavesw[i3].Left:= 551;
      arraysavesw[i3].Top:= 536;
      arraysavesw[i3].OnClick:=Bildersektion_Test_Vollbild_SWClick;
      arraysavesw[i3].Picture:= Bildersektion_Test_Vollbild.Picture;

      arraysavesw[i3]:=timage.Create(findcomponent('Bildersektion_'+ordner.Items.Strings[i3]) as ttabsheet);
      arraysavesw[i3].Name:='Bildersektion_'+ordner.Items.Strings[i3]+'_Vollbild_SW';
      arraysavesw[i3].Height:=48;
      arraysavesw[i3].Width:=48;
      arraysavesw[i3].Left:= 551;
      arraysavesw[i3].Top:= 536;
      arraysavesw[i3].Picture:= Bildersektion_Test_Vollbild_SW.Picture;

      arraymarkerback[i3]:= tshape.Create(findcomponent('Bildersektion_'+ordner.Items.Strings[i3]+'_Scrollbox') as tadvscrollbox);
      arraymarkerback[i3].name:='Bildersektion_'+ordner.Items.Strings[i3]+'_Scrollbox_MarkerBack';
      arraymarkerback[i3].Visible:=false;
      arraymarkerback[i3].Width:=113;
      arraymarkerback[i3].Height:=113;
      arraymarkerback[i3].Brush.Color:=$00AAFFFF;
      arraymarkerback[i3].Pen.Style:=psclear;

      arraymarker[i3]:= tshape.Create(findcomponent('Bildersektion_'+ordner.Items.Strings[i3]+'_Scrollbox') as tadvscrollbox);
      arraymarker[i3].name:='Bildersektion_'+ordner.Items.Strings[i3]+'_Scrollbox_Marker';
      arraymarker[i3].Visible:=false;
      arraymarker[i3].Width:=113;
      arraymarker[i3].Height:=113;
      arraymarker[i3].Pen.Color:=clyellow;
      arraymarker[i3].Brush.Style:=bsclear;

      arrayfreiraum[i3]:= timage.Create(findcomponent('Bildersektion_'+ordner.Items.Strings[i3]+'_Scrollbox') as tadvscrollbox);
      arrayfreiraum[i3].name:='Bildersektion_'+ordner.Items.Strings[i3]+'_freiraum';
      arrayfreiraum[i3].Width:=105;
      arrayfreiraum[i3].Height:=8;

      arrayzurueck[i3]:= timage.Create(findcomponent('Bildersektion_'+ordner.Items.Strings[i3]) as ttabsheet);
      arrayfreiraum[i3].name:='Bildersektion_'+ordner.Items.Strings[i3]+'_zurueck';
      arrayfreiraum[i3].Cursor:= crhandpoint;
      arrayfreiraum[i3].Height:=16;
      arrayfreiraum[i3].Width:=72;
      arrayfreiraum[i3].Left:= 30;
      arrayfreiraum[i3].Top:= 563;
      arrayfreiraum[i3].Picture:= Bildersektion_Test_zurueck.Picture;
      arrayfreiraum[i3].OnClick:=Bildersektion_Test_zurueckClick;
    end;
  end;
//...

Das ganze ist mir ein Rätsel.