Контекстное меню Delphi 7

[Dalagardi]

Есть динамический массив картинок, пытаюсь для каждой картинки из этого массива прикрепить PopUpMenu. А этот гад меня выкидывает...

procedure TForm1.DirectoryListBox1Change(Sender: TObject);
var TI,i,y:integer;
    LI:Integer;
    SP,Hei,heiy:Boolean;
begin
emp:=true;
form1.Caption:=inttostr(tc);
sp:=false;
hei:=false;
heiy:=false;
LI:=-1;
TI:=0;
y:=0;

{Ïåðåðèñîâêà ïîñëå ñìåíû äèðåêòîðèè}
if tc<>0 then
begin
freemem(p,sizeof(Timage)*100);
for i:=0 to tc do
dinp[i].Free;
setlength(dinp,0);
panel1.Height:=panh;
panel1.Width:=panw;
end;
{Ïåðåðèñîâêà ïîñëå ñìåíû äèðåêòîðèè}


getmem(p,sizeof(Timage)*100);
setlength(DinP,100);
i:=0;

if findfirst('*.jpg',faAnyFile,sear)= 0 then
begin
repeat
emp:=false;
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);
TC:=i;
end;

Это заполнение массива... но не суть важно, заполняется он нормально. но как тока вписываешь

dinp[i].popupmenu:=popupmenu1;

сразу выкидывает...
как ещё это можно сделать? или может я чё ни так пишу?

[Dalagardi]

Чё никто не знает?(((((((