Освобождение Панели (Delphi)

[Dalagardi]

Из DirectoryLisBox выбираются картинки и помещаются на панель, как сделать так чтобы после изменения директории панель очищалась от картинок и если в новой директории есть картинки они помещались на панель.

procedure TForm1.DirectoryListBox1Change(Sender: TObject);
var TI,i,y:integer;
    LI:Integer;
    SP,Hei,heiy:Boolean;
begin
i:=0;
sp:=false;
hei:=false;
heiy:=false;
LI:=-1;
TI:=0;
y:=0;
getmem(p,sizeof(Timage)*1000);
setlength(DinP,1000);
if findfirst('*.jpg',faAnyFile,sear)= 0 then
begin
repeat
inc(LI);
dinp[i]:=Timage.Create(panel1);
dinp[i].Stretch:=true;
dinp[i].Parent:=panel1;
dinp[i].Picture.loadfromfile(directorylistbox1.Directory+'\'+sear.Name);
dinp[i].Height:=150;
dinp[i].Width:=150;
dinp[i].Left:=LI*170;

if sp=true then dinp[i].Top:=TI*170;

if (i mod 18=0) and (i<>0) then   hei:=true;
if (hei=true)  then begin inc(y); hei:=false; Heiy:=true; end;
if (heiy=true) and (i mod 6 = 0)  then   panel1.Height:=panel1.Height+170;

if (i mod 6 =0) and (i<>0) then
begin
dinp[i].Left:=0;
inc(TI);
dinp[i].Top:=TI*170;
LI:=0;
SP:=true;
end;
dinp[i].Tag:=i;
dinp[i].OnDblClick:=panelclickimg;
inc(i);
until findnext(sear)<>0;
FindClose(sear);

end;
end;

[Alter]

В цикле dinp[i].free;, все Image будут удаленны. потом заново создайте объекты Image, и грузите туда из новой директории.
Не забываем чистить память.