请教一个问题：如何将一个组件输出为一个DataSource或DataSet？

[vicentyan]

就象TDataSource或TADODataset一样？
最好有源程序详细讲解，因为本人是一个菜鸟！谢谢！！

[cobi]

具体一点

[vicentyan]

就是想让某组件输出一个DataSource，让DBGrid能够获取数据源。
具体的组件声明如下（未完成）：
type
TFindCompent = class(TGroupBox)
FindMode:TCombobox;
FindModeLable:Tlabel;

FindString:TEdit;
FindStringLabel:Tlabel;

private
FDataSet: TADODataSet;
FDataSource:TDataSource;

FTableName:string;
FConnectionString:string;
FPlaceMode:integer;

FindModeLeft, FindModeTop, FindModeWidth, FindModeHeight:integer;
FindStringLeft, FindStringTop, FindStringWidth, FindStringHeight:integer;
procedure SetDataSet(ADataSet: TADODataSet);
procedure SetTableName(TableName:string);
Procedure SetConnectionString(ConnectionString:String);
procedure InitFindMode();
{ Private declarations }
protected
Margin:integer;
SubMinWidth:integer;
MinWidth:integer;

procedure Resize; override;
procedure Repositioning;
procedure Paint; override;
procedure SetPlaceMode(PlaceMode:integer); //设置控件放置模式
{ Protected declarations }
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
{ Public declarations }
published
property TableName:string read FTableName write SetTablename;
property Connectionstring:string read FConnectionString write SetConnectionString;
property PlaceMode:integer read FPlaceMode write SetPlaceMode;
property DataSet: TADODataSet read FDataSet write SetDataSet;

{ Published declarations }
end;

[vicentyan]

为何没有人理我？？？