[[coso]]

si, el codigo que puse tiene errores

Código Delphi [-]
constructor TMiComponente.Create(AOwner : TComponent);
begin
    inherited;
    Desp := TDesplegable.Create;
end;

lo mismo en destroy. Saludos.