Componente herdado do mainmenu.Como faço ?

interface

TMeuNovoMenu = class(TMainMenu)
private 
  FMinhaPropriedade: Integer;
  funtion SetMinhaPropriedade(Value: Integer): Integer;
published
  property MinhaPropriedade: Integer read FMinhaPropriedade write SetMinhaPropriedade;
end;

. . .

implementation

funtion SetMinhaPropriedade(Value: Integer): Integer;
begin
  FMinhaPropriedade := Value;
end;