Неизвестная ошибка ADOQuery

[bakanaev]

Вылетает на одной функции, вызывается в потоке

function TNewThread.MARK_ACCOUNT_HOW_IN_WORK(account: string): bool;
var  ADOQuery:TADOQuery;
     s:WideString;
begin
    CoInitialize(0);
    ADOQuery:=TADOQuery.Create(nil);
    CoUninitialize();
    s:='FILE NAME='+DBPath;
    ADOQuery.ConnectionString:=s;


  try
   ADOQuery.Close;
   ADOQuery.SQL.Clear;
   ADOQuery.SQL.Add('UPDATE logins SET used_status="IN_WORK", posted_time=NOW() WHERE login_data=:account');
   ADOQuery.Parameters.ParamByName('account').value :=AnsiToUtf8( account);
   CoInitialize(0);
   ADOQuery.ExecSQL;
   CoUninitialize();
  except
   on E:Exception do
    begin
     LOG_STR:=account+'| MARK_ACCOUNT_HOW_ERROR | '+E.Message;
     Synchronize(LOG);
     Synchronize(MySQLLOG);
    end;
   end;

ADOQuery.Close;
ADOQuery.Free;
end;

Вылетает примерно через 2-3 запроса. Подскажите что и где я не так сделал ?
Структура таблицы logins(id,login_data,used_status,po sted_date)