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

procedure setonclick(value:string;cont:TComponent);
 var
 ev:TNotifyevent;
begin
  value:=lowercase(value);

  if value='p1' then
  ev:=buttonp1Click;
  if value='p2' then
  ev:=buttonp2Click;

  if cont is TButton then begin
     (cont as TButton).onclick:=ev;
  end;

  if cont is TMenuitem then begin
    (cont as TMenuitem).OnClick:=ev;
  end;
end;					

1:
2:
3:
4:

procedure setonclick(value:string;cont:TComponent);
 var
 ev:TNotifyevent;
begin