ADOQuery + поток

[Гена]

Коллеги!!! Прошу помощи в таком случае: пишу приложение в виде службы NT, в ней два потока, в одном - бесконечный цикл опроса COM-порта, во втором - результаты льются в базу данных с помощью ADOQuery и его поэтому создаю при старте потока таким кодом:
//=================================== ===============
CoInitializeEx (NIL, COINIT_MULTITHREADED);
ADOQuery1:= TADOQuery.Create(nil);
ADOQuery1.ConnectionString:= 'Provider=MSDASQL.1;Persist Security Info=False;Data Source=wsus;Initial Catalog=Sovintel';
sql:= 'select count(*) from sovintel';
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(sql);
ADOQuery1.Open;
//=================================== ===============
Беда в том, что этот код не работает, ADOQuery1 не возвращает ничего. Я полагаю, что он просто не создается. Но раньше этот код точно работал, если его бросить на форму - также все работает. Ошибка, где-то в том, как правильно создавать ADOQuery1 в потоке. Огромная просьба помочь!!!!!