TCollectionEditor e editores de propriedades/componente.

package TesteComponentPackage;

{$R *.res}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$IMPLICITBUILD ON}

requires
  rtl,
  DesignIDE;

contains
  UnitComponente in 'UnitComponente.pas';
end.

unit UnitComponente;

interface

uses
  DesignIntf, DesignEditors, Classes, Dialogs;

type
  TComponenteEditorPersonalisado=class(TComponentEditor)
    function GetVerbCount: Integer; override;
    function GetVerb(Index: Integer): string; override;
    procedure ExecuteVerb(Index: Integer); override;
  end;

  procedure Register;

implementation

{ TComponenteEditorPersonalisado}


// Aqui você informa quantos itens você deseja adicionar no menu
function TComponenteEditorPersonalisado.GetVerbCount: Integer;
begin
  Result := 2;
end;

Aqui você informa os Itens que vai adicionar ao menu popup do componente
function TComponenteEditorPersonalisado.GetVerb(Index: Integer): string;
begin
  case Index of
    0: Result := 'Editor de Propriedade';
    1: Result := 'Propriedade de exemplo';
  end;
end;

//Aqui você pega pelo índice o item do menu e diz o que ele vai executar
procedure TComponenteEditorPersonalisado.ExecuteVerb(Index: Integer);
begin
  inherited;
  case index of
      0: //comandos para abrir o editor;
      1: showmessage('Não faz nada, é só exemplo');
   end;
end;





procedure Register;
begin
  RegisterComponents('Teste', [TComponente]);   //registra o componente principal
  RegisterComponentEditor(TComponente, TComponenteEditorPersonalisado); //registra o menu popup que vc criou.
end;

end.