Пишу эксперт с использованием OpenToolsAPI. Возникла очень нехорошая проблема: для дальнейшей обработки свойства дочернего компонента мне необходимо определить название свойства родительского компонента, связанного с ним. Для примера буду рассматривать Action - TFileOpen. У него есть свойство Dialog, значением которого является экземпляр класса TOpenDialog. Как в Borland все это дело проектировали я вообще ума не приложу - с точки зрения OpenToolsAPI дочерний компонент является независимым компонентом, а с точки зрения функций TypInfo он, как и положено, дочерний. Теперь посмотрим на это дело через OpenToolsAPI:
1)имеем ссылку на этот дочерний компонент
2)необходимо найти название свойства родительского компонента

Думал решить проблему таким кодом:

Код

(*  PropertyList - наследник TList, хранящий ссылки на PPropertyInfo  PPropertyInfo = ^TPropertyInfo;  TPropertyInfo = record    Component: IOTAComponent;    PropertyIndex: integer;    ParentList: TParentPropertyList;    PropertyStates: TPropertyStates;    TranslatedWord: PAnsiChar;  end; *) var  CurrentPropertyIndex, CurrentOwnerPropertyIndex: integer;  VCLComponent: TComponent;  OTAComponent, OwnerPropertyOTAComponent: IOTAComponent; //Собственно проблемный код for CurrentPropertyIndex := 0 to PropertyList.Count - 1 do  with PropertyList[CurrentPropertyIndex]^ do  begin    VCLComponent := TComponent(Component.GetComponentHandle);    if csSubComponent in VCLComponent.ComponentStyle then    begin      if Assigned(VCLComponent.Owner) then        //Коллекции обрабатывать не нужно        if not (TPersistent(VCLComponent.Owner) is TCollection)then        try          //FindComponent - статический метод для поиска ссылки на IOTAComponent с учетом формы или модуля          OTAComponent := FindComponent(OTAFormEditor, VCLComponent.Owner.Name);          if Assigned(OTAComponent) then          begin            for CurrentOwnerPropertyIndex := 0 to OTAComponent.GetPropCount - 1 do            begin              if OTAComponent.GetPropType(CurrentOwnerPropertyIndex) = tkClass then              begin                OTAComponent.GetPropValue(CurrentOwnerPropertyIndex, OwnerPropertyOTAComponent);                //Этот код ни когда не выполнится, т.к. для свойства такого типа GetPropValue всегда возварщает nil, по совершенно непонятной причине!!!!!                if Assigned(OwnerPropertyOTACompnent) then                  if OwnerPropertyOTAComponent.GetComponentHandle = Component.GetComponentHandle then                  begin                    //Чего то делаем...                  end;              end;            end;          end;        finally          OTAComponent := nil;        end;    end;  end;

Как можно обойти данную проблему?