ADOQUERY SQL 赋值问题

try
CoInitialize(nil); //加了此 。还是出错
sSql:='select * from DetRes ';
with FGAdoQuery do
begin
Close;
Connection := FADOConnect;
SQL.Clear;
SQL.Add(sSql); //只要一给ADOQ 赋SQL语句就出错 提示地址错误
//Text := sSql; //FAdoQuery 此处经常出错，为什么 ？是不是我的控件名字和系统的重复了？将控件名称换为FGAdoQuery 还出错
//Prepared;
Open;
finally
CoUninitialize;
end;

但这一个过程，在同一程序中，主单元调用此过程却没有错。


//下面是此控件的生成部分
FGAdoQuery := NewQuery(FADOConnect,'FAdoQuery');
function NewQuery(FADOConnect:TADOConnection;sQName:String):TAdoQuery;
begin
Result:=TADOQuery.Create(Application);
Result.Connection:=FADOConnect;
Result.Name := sQName;
Result.SQL.Text := '';
end;