[Bargest]

Код:

type
 TMyMenuItem = class (TMenuItem)
 private
 protected
 public
  Procedure Assign(Sorce: TPresident); override;
 end;
...