Дочернии объекты ActiveX компонента, как добавить в ActiveX объект дочернии объекты.

[nik531]

Есть у меня объект лист у этого объекта есть вложенные объекты рисунки там таблици. Хочу дать возможность из VBA получить доступ к свойствам этих объектов на прямую.
примерно так
List.Image.Color := 255;

Для этого добавляю новый инрефейс IMyImage c одним свойством Color.
в основной интрфейс добавлю свойство Image для чтения возвращающие указтаель на интрфейс IMyImage
В класс релизущий основной интрфейс добавлю реализацию метода

CollapsedWrap disabledLine numbers off
function TMyList.Get_Image: IMyImage;
begin
  Result := MyImage1;
end;

тепрь сам класс TMyImage
выгледит следующим образом

CollapsedWrap disabledLine numbers off
  TMyImage = class (TAutoObject, IMyImage)
    Owner : TMyList;
  public
    constructor Craete(aOwner : TMyList);
    procedure Set_Color(Value: SYSINT); safecall;
  end;
 
constructor TMyImage.Craete(aOwner : TMyList);
begin
  inherited;
  Owner := aOwner;
end;
 
procedure TMyImage.Set_Color(Value: SYSINT);
begin
  Owner.Set_YColor(Value);
end;

создаётся картинка Image в конструкторе TMyList

CollapsedWrap disabledLine numbers off
constructor TMyList.Create(...)
begin
...
 MyImage1 := TMyImage.Create(Self);
end;

Всё компелируется запускается но при обращение к свойству Image класс лист приложение падет в методе TAutoObject.Invoke скорее всего потому что там Factory равно nil
что делать ?
как правильно создавать вложенные объекты дла обекта автоматизации ? вазможно ли воопще такое ?