[hotspur]

Вообщем вродь разобрался. Решилась проблема с помощью перекрытия метода

Код:

1	procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;

реализовал ее таким образом:

Код:

1 2 3 4 5 6 7 8

procedure TComponentC.GetChildren(Proc: TGetChildProc; Root: TComponent); var   i: Integer; begin   for i:= 0 to ControlCount - 1 do     if (not (Controls[i] is TComponentA)) and (not (Controls[i] is TComponentB)) then       Proc(TComponent(Controls[i])); end;