unit EDATest;

interface

Uses Classes;

type
 TEDAChild = class;

 TEDAParent = class(TComponent)
   constructor Create(AOwner:TComponent);override;
   destructor Destroy;override;
   procedure GetChildren(Proc: TGetChildProc; Root: TComponent);override;
 private
   FChild:TEDAChild;
 published
   property Child:TEDAChild read FChild write FChild;
 end;

 TEDAChild = class(TComponent)
 
 end;

 procedure Register;

implementation

Uses SysUtils;

constructor TEDAParent.Create(AOwner:TComponent);
begin
 inherited Create(AOwner);
 Child := TEDAChild.Create(Self);
end;

destructor TEDAParent.Destroy;
begin
 FreeAndNil(FChild);
 inherited;
end;

procedure TEDAParent.GetChildren(Proc: TGetChildProc; Root: TComponent);
begin
 Proc(Child);
end;

procedure Register;
begin
 RegisterComponents('EDA',[TEDAParent]);
 RegisterNoIcon([TEDAChild]);
end;

Initialization
 RegisterClass(TEDAChild);
end.