Как связать компоненты (Connect)

[killerrv]

unit MyConn;

interface

uses ADODB, Dialogs, Forms, SysUtils, Classes, DB;

type
TMyConn = class(TComponent)

private
conn:TADOConnection;
F_alias: string;
F_login: string;
F_pwd: string;
procedure Set_alias(const Value: string);
procedure Set_login(const Value: string);
procedure Set_pwd(const Value: string);

protected

public
constructor Create(AOwner :TComponent{; curr_con:TADOConnection}); overload;

published
property login: string read F_login write Set_login;
property pwd: string read F_pwd write Set_pwd;
property alias: string read F_alias write Set_alias;
property Connect:TADOConnection read conn;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('ADO', [TMyConn]);
end;

{ TMyConn }

constructor TMyConn.Create(AOwner:TComponent{; curr_con:TADOConnection});
begin
Inherited Create(AOwner);
conn:=TADOConnection.Create(self);

//conn:=curr_con;
//............
end;


procedure TMyConn.Set_alias(const Value: string);
begin
F_alias:= Value;
end;

procedure TMyConn.Set_login(const Value: string);
begin
F_login:= Value;
end;

procedure TMyConn.Set_pwd(const Value: string);
begin
F_pwd:= Value;
end;

end.

[killerrv]

только TMyConn должен быть TMyConn = class(TComponent),
а не TMyConn = class(TADOConnection)