1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

type
  Tmenuepunkt=class(TObject)
  private
  public
  name:string;
  posi:Tpoint;
  width,height:integer;
  farbe:Tcolor;
  change:boolean;
  constructor create(pname:string;pposi:Tpoint;pwidth,pheight:integer;pchange:boolean);
  published
  procedure onclick(sender:tobject);
  end;					

1:
2:
3:
4:
5:
6:

  var  punkt:tmenuepunkt;

  ...

  punkt:=tmenuepunkt.create('Neues Spiel',Point(378,200),193,25,true);
  punkt.onclick:=option1;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

private
  fOnClick: TNotifyEvent;
publisched
  property OnClick: TNotifyEvent read fOnClick write fOnClick;
end;

// Benutzung
if Assigned(fOnClick) then
  fOnClick(Self);					

1:

TNotifyEvent = procedure(Sender: TObject) of object;