不明白程序为何会自动关闭

动态创建一个ADOConnection控件，在FORMSHOW里初始化为：  
  if ADOC = nil then
  Begin
     ADOC := TADOConnection.Create(nil);
     ADOC.ConnectionString :=trim(edtDBPath.Text);//SQL数据库连接串
     ADOC.LoginPrompt := false;
     ADOC.CommandTimeout :=0;
     ADOC.Connected := True;
     self.butTest.Enabled:=true;
  End;有一个函数在多线程里被调用，此函数要通过动态创建
var
  Q:TADOQuery;
从而通过连接ADOC到数据库里查找数据，   Q := TADOQuery.Create(nil);
   Q.connection :=ADOC;//？？？？？出问题的地方但是程序运行到Q.connection :=ADOC;这句代码时有时会出错，
出错的机会很少，但是要命的是偶尔，且不明原因。
我DEBUG一下，结果是运行到这句代码整个程序都死掉了一样，
再也不运行下去了。且程序有时候会自动关闭，也不知为何自动关闭的，至今没找到原因
或者会跟上面的问题有关请问各位大侠有没碰到过类似的问题，出现这样的问题会是什么可能呢
是程序的问题还是SQL SERVER2000的问题呢，又怎么解快呢