مشکل در از بین بردن یک شی

[vb.net2008]

سلام
من یه پنل دارم که توش یکسری شی وجود داره می خوام وقتی روی یکی از اشیا که کلیک می شه پنل رو پاک کنم. متد Free و destroy رو امتحان کردم هر دو خطا میدن.

[یوسف زالی]

سلام.
نمونه کدتون رو بگذارید.

[vb.net2008]

Panel:=TPanel.Create(frmMain);
Panel.Parent:=frmMain;
Panel.Left:=180;
Panel.Top:=240;
Panel.Width:=650;
Panel.Height:=430;
Panel.BevelOuter:=bvNone;
Panel.Color:=clWhite;

ScrollBox:=TScrollBox.Create(frmMain);
ScrollBox.Parent:=Panel;
ScrollBox.Left:=0;
ScrollBox.Top:=0;
ScrollBox.Width:=650;
ScrollBox.Height:=430;
ScrollBox.BorderStyle:=bsNone;
SetLength(Image,DM.Q3.RecordCount);
b:=20;
c:=20;
DM.Q3.First;
for i:=0 to DM.Q3.RecordCount-1 do
begin
Image[i]:=TImage.Create(frmMain);
Image[i].Parent :=ScrollBox;
Image[i].Left:=c;
Image[i].Top:=b;
c:=c+120;
if c>=510 then
begin
c:=20;
b:=b+120;
end;
Image[i].Width:=100;
Image[i].Height:=100;
Image[i].Stretch:=true;
Image[i].Hint:=DM.Q3CategoryName.Value;
Image[i].ShowHint:=true;
Image[i].OnClick:=showflash;
Image[i].Cursor:=crHandPoint;
Image[i].Tag:=DM.Q3PageID.Value;

تابع showflash

Panel.Free;
IsVisble:=false;
Code:=TComponent(Sender).Tag;
ShowPage(Code);

[Felony]

چه پیغام خطایی دریافت میکنید ؟ کدتون رو به صورت کامل قرار بدید .