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.