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

 type TEasyMenue = Class(TObject)
 private
  fExecPath : String;
  fCaption  : String;
  lbCaption : TLabel;
  imLogo    : TImage;
  Procedure OnClick(Sender : TObject);
 public
  constructor Create;
  destructor Destroy;
  Property Caption read fCaption write fCaption;
  Property Path read fExecPath write fExecPath;
 End;