Fehler beim freigeben dynamisch erzeugter TLabels

[hugo1990]

@ helmi
jop, das einzige was anders ist, ist das Parent

@ hoika
Erzeugung:

Delphi-Quellcode:

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

PicsAtServer ist eine TScrollBox;

Freigabe:

Delphi-Quellcode:

for i:=high(Bilderup) downto low(Bilderup) do
  begin
  FreeAndNil(Bilderup[i]);
  end;
for i:=high(Bilderupname) downto low(Bilderupname) do
  begin
  FreeAndNil(Bilderupname[i]);
  end;