onclick事件

Question

我动态创建了一个panel。如何书写这个panel的ONCLICK事件呀。我的代码是这样写的，怎么出错呀。
unit Unit2;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;type
  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Panel1: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Panel1Click(Sender: TObject);
  private
    procedure myclick(sender:Tobject);
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form2: TForm2;
  pnl: TPANEL;
implementation{$R *.dfm}procedure TForm2.Button1Click(Sender: TObject);
//var
  //  pnl: TPANEL;
begin
    pnl := TPanel.Create(Self);
    pnl.name:='panel2';
    pnl.Parent := Self;
    pnl.Left := 100;
    pnl.Top := 100;
    pnl.Width := 600;
    pnl.Height := 600;
    pnl.Caption := 'This is a panel control.';
    pnl.Color := clRed;
    pnl.Visible := true;
    pnl.OnClick:=myclick;
end;
 procedure myclick(sender:Tobject);
  begin
    showmessage('wwww');
  end;
procedure TForm2.Button2Click(Sender: TObject);
begin
if assigned(FindComponent('panel2')) then
  Pnl.Free;
 // if assigned(panel2) then panel2.free;
end;procedure TForm2.Panel1Click(Sender: TObject);
begin
 //showmessage('www');
end;end.

Answer 1

procedure TForm2.myclick(sender:Tobject);//要加上TForm2.
  begin
    showmessage('wwww');
  end;

Answer 2

procedure TForm2.myclick(sender:Tobject);//要加上TForm2.
begin
  showmessage('wwww');
end;