ADO в потоке

[Tip.the.besT]

Возникла следующая проблема, ADO не отправляет запросы при динамическом создание. После тестов выяснилось, что если я отправляю хоть один запрос из ADO который создал ручками на форме, то и в потоке начинает всё работать как часы.

Помогите понять, что я упустил, пример динамического создания:

var
  pcon:TADOConnection;
  PDS:TDataSource;
  pqry:tADOQuery;
begin
  pcon:=TADOConnection.Create(nil);
  PDS:=TDataSource.Create(nil);
  Pqry:=TADOQuery.Create(nil);
  pcon.ConnectionString:='"Provider=MSDASQL.1;Password=PASSWORD;Persist Security Info=True;'+
                         'User ID=USER_REMOTE;Extended Properties="DRIVER={MySQL ODBC 5.3 ANSI Driver};'+
                         'UID=USER_REMOTE;PWD=PASSWORD;SERVER=SERVER_IP;DATABASE={DATABASE};PORT=3306;COLUMN_SIZE_S32=1;"';

  pcon.LoginPrompt:=false;
  pqry.Connection:=pcon;
  PDS.DataSet:=pqry;
  
  with pqry do
    begin
      SQL.Clear;
      SQL.Add('SELECT virtuemart_product_id,product_sku FROM mut_virtuemart_products');
      Active:=True;
      ShowMessage(IntToStr(RecordCount)); //исключительно в целях тестирования, не ругайтесь)
    end;

  pcon.Free;
  pds.Free;
  pqry.free;
end;

Так же не побрезгую примером работы с ADO в потоке.

[Аватар]

А что в том коде - созданы и удалены несколько объектов, без соединения и выполнения чего-либо

В потоке - для каждого потока свое соединение

[Tip.the.besT]

Сообщение от Аватар

А что в том коде - созданы и удалены несколько объектов, без соединения и выполнения чего-либо

В потоке - для каждого потока свое соединение

Просто привёл пример как создаю, запрос по сути значения не имеет, главное, что он не выполняется.

Дополнил на всякий случай, вставил запрос.

[Stilet]

Минимально для потока:

begin
  CoInitialize(0);
  with TADOQuery.Create(nil) do begin
   ConnectionString:='"Provider=MSDASQL.1;Password=PASSWORD;Persist Security Info=True;'+
       'User ID=USER_REMOTE;Extended Properties="DRIVER={MySQL ODBC 5.3 ANSI Driver};'+
       'UID=USER_REMOTE;PWD=PASSWORD;SERVER=SERVER_IP;DATABASE={DATABASE};PORT=3306;COLUMN_SIZE_S32=1;"';

   sql.text:='Запрос';
   ExecSQL;
   free;
  end;
  CoUninitialize;
end;

Дополнил на всякий случай, вставил запрос.

Где?

[Tip.the.besT]

CoInitialize(0);
CoUninitialize;

Спасибо, сейчас попробую.