Компонент с редактором , Не сохраняются дочерние компоненты

Добрый день.

Пытаюсь разобраться в построении компонента с редактором, аналогичному TActionList.
Файл с полными исходниками прилагаю.

Для удобства компонент и редактор положил в один модуль.

После добавления Item'а с помощью редактора он появляется в исходнике и dfm файле. Однако при сохранении из dfm файла загадочным образом исчезает.
Эффект также можно проверить нажав трижды Alt+F12.

В чем может быть проблема?
Прикреплённый файлtestComponent.rar (3.35 Кбайт, скачиваний: 118)

Начало хорошее, правда если вы списывали с TActionList, то упустили одну небольшую вещь

  TTestItem = class(TComponent)
...
    property TestComponent: TTestComponent read fTestComponent write SetTestComponent;
  end;
 
procedure TTestItem.SetTestComponent(const Value: TTestComponent);
begin
  if Value <> TestComponent then begin
    if TestComponent <> nil then TestComponent.RemoveItem(Self);
    if Value <> nil then Value.AddItem(Self);
  end;
end;

Огромное спасибо.

И ещё одно замечание. Для удобства регистрацию редактора нужно положить в модуль с редактором, а не в модуль с компонентом.