delphi 内存泄漏问题 求助

Question

有没有高手能帮我看下 下面代码什么地方有错 。应该怎样改
var
  Form1: TForm1;
 pan:Tpanel;implementationprocedure TForm1.Button1Click(Sender: TObject);
begin          pan:=Tpanel.Create(self);
           pan.Parent:=form1;
           pan.OnClick:=aa;
end;procedure TForm1.aa(Sender: TObject);
begin    pan.Free;end;end.

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Assigned(pan) then
  pan:=Tpanel.Create(self);
  pan.Parent:=form1;
  pan.OnClick:=aa;
end;procedure TForm1.aa(Sender: TObject);
begin
  pan.Free;
  pan:=nil;
end;
这样试试

Answer 2

可能功力不够,form1管理pen看不出泄露哪里了,