TBaseEditor = class
 protected
    procedure Draw; virtual;abstract; // наследник реализует прорисовку
    procedure Edit; virtual;abstract; // наследник реализует редактирование
    function GetValue: variant; virtual;abstract; // наследник реализует получение значения
    procedure SetValue(Value: variant);virtual;abstract; // наследник реализует установку значения
end;

// перечень редакторов
TMyEditors = (eCheck, eEdit, eCyrrency, eButton);

// базовый редактор
TMyBaseEditor = class(TPersistent)

end;

TMYComponent = class(TComponent)
published
 property Editor: TBaseEditor read fEditor;
 property TypeEditor: TMyEditors read fTypeEditor write SetTypeEditor;
end;

procedure SetTypeEditor(Value: TMyEditors);
var Old: TBaseEditor;
begin
 if fTypeEditor = Value then Exit;
 Old := Editor; // запоминаем старый редактор
 try
   case Value of // в зависимости от типа создаём новый
      eCheck: fEditor := TMyCheckEditor.Create();
      eEdit: fEditor := TMyEditEditor.Create();
      ..............
   end;
 finally
   FreeAndNil(Old); // уничтожаем старый редактор
   fTypeEditor := Value;
 end;
end;

property TypeEditor: string read fTypeEditor write SetTypeEditor;

var fRegisterEditorList: TStringsList;

procedure RegistrEditor(TypeEditor: string; ClassEditor: TBaseEditor);
begin
 if not Assigned(fRegisterEditorList) then fRegisterEditorList := TStringList.Create;
 if fRegisterEditorList.IndexOf(TypeEditor) >= 0 then Exit;
 fRegisterEditorList.AddObject(TypeEditor,ClassEditor);
end;

procedure SetTypeEditor(Value: string);
var Old: TBaseEditor;
    n: integer;
    f: boolean;
begin
if fTypeEditor = Value then Exit;
Old := Editor; // запоминаем старый редактор
try
  f := false;
  for i := 0 to fRegisterEditorList.Count-1 do
     if SameText(fRegisterEditorList[i],Value) then begin
        fEditor := TMyBaseEditor(fRegisterEditorList.Objects[i]).Create();
        f := true;
        Break;
     end;
  if not f then Exit;
finally
  FreeAndNil(Old); // уничтожаем старый редактор
  fTypeEditor := Value;
end;
end;

initialization
 RegistrEditor('eCheck',TMyCheckEditor);
 RegistrEditor('eEdit',TMyEditEditor);
end.

// ===============================
// новый модуль
initialization
 RegistrEditor('eButton',TMyButtonEditor);
end.