unit MyComponent2;

 

interface

 

uses Windows, Messages, SysUtils, Variants, Classes, Unit2;

 

type

  TMyComponent2 = class(TComponent)

  private

    fIndex : Integer;

    fSearch : TMyComponent;

    function GetIndex : Integer;

  protected

    //...............

  public

    constructor Create(AOwner: TComponent);override;

    destructor Destroy;override;

  published

    property SearchClass : TMyComponent read fSearch write fSearch;

    property IndexElement : Integer read GetIndex write fIndex;

  end;

 

  procedure Register;

 

implementation

 

{ TMyComponent }

 

constructor TMyComponent2.Create(AOwner: TComponent);

begin

  fSearch := TMyComponent.Create(Self);

  inherited;

end;

 

destructor TMyComponent2.Destroy;

begin

  fSearch.Free;

  inherited;

end;

 

function TMyComponent2.GetIndex : Integer;

begin

  Result := fSearch.IndexList;

end;

 

procedure Register;

begin

  RegisterComponents('test', [TMyComponent2]);

end;

Result := fSearch.IndexList;