1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

type
  TNewCompo = class(TPanel)
  private
    bu : TButten;
    procedure getOnClickPop:TNotifyEvent;
    procedure setOnClickPop(value:TNotifyEvent) 
  published
    property OnClickPop : TNotifyEvent read getOnClickPop write setOnClickPop ;
  end;
...
procedure TNewCompo.getOnClickPop:TNotifyEvent;
begin
  if bu <> nil then result := bu.OnClick;
end;

procedure TNewCompo.setOnClickPop(value:TNotifyEvent) 
begin
  if bu <> nil then bu.OnClick := value;
end;