Problema con Jerarquias en un Componente

[chrids506]

a ver si entendí, agrego esto en los protected:

Código Delphi [-]
   protected
    { Protected declarations }
   procedure GetChildren(Proc: TGetChildProc; Root: TComponent);

agrego este procedimiento:

Código Delphi [-]
procedure TExpPanel.GetChildren(Proc: TGetChildProc; Root: TComponent);
begin
  Proc(FPanelTit)
end;

y lo creo así:

Código Delphi [-]
constructor TExpPanel.Create(AOwner : TComponent);
begin
   inherited Create(AOwner);       {Llama al constructor original (heredado)}

   //////////////////Panel2 >>>
    FPanelTit := TPanel.Create(self);  {Creamos el Panel}
    FPanelTit.Height := 60;
    FPanelTit.width := width;
    FPanelTit.top := 0; 
    FPanelTit.left := 0;
    FPanelTit.parent := self;
    FPanelTit.visible := true;

  ...

o no?

P.D.:Muchas gracias a los 2 por el tiempo que han dedicado a responderme