Fehler beim freigeben dynamisch erzeugter TLabels

[hugo1990]

Ok ich habe jetzt rausgefunden, wie das mit der TComponentList geht, aber der Fehler kommt immer noch.

Delphi-Quellcode:

for i:=0 to Anzahl-1 do
  begin
  {x,y festlegen}
  Bilderup.Add(TImage.Create(Form1));
  with (Bilderup.Items[i] as TImage) do
    begin
    Picture.LoadFromFile(...);
    Left:=x;
    Top:=y;
    Width:=133;
    Height:=100;
    Parent:=PicsAtServer;
    Center:=True;
    end;
  Bilderupname.Add(TLabel.Create(Form1));
  with (Bilderupname.Items[i] as TLabel) do
    begin
    Caption:=IntToStr(i+1)+'.jpg';
    AutoSize:=True;
    Left:=x+(133-Width) div 2;
    Top:=y+103;
    Parent:=PicsAtServer;
    end;
  end;

So erzeuge ich jetzt die Images und Labels und dann zum freigeben

Delphi-Quellcode:

Bilderup.Clear;
Bilderupname.Clear;

Oder mache ich da was falsch?

Edit: Ich glaube ich werde mein Programm noch einmal von vorn anfangen, den wenn ich den Code zum erzeugen und freigeben in ein anderes Programm packe geht es, also werde ich irgendwo einen anderen Fehler haben.