Delphi - Ayuda urgente por favor

Hola, hice programa donde uso un componente TADOQuery para guardar información en una base de datos SQL Server, pero tengo un problema: Falla el programa mandando el mensaje de error "CoInitialize has not been called", esto la hace al ejecutar la instrucción ADOQuery1.SQL.ADD('Insert into tabla...'). Funcionaba bien pero empezó a fallar a partir de que la ejecuto dentro del metodo execute de una clase de tipo TTHRead, ¿Alguien puede decirme como solucionarlo?. Gracias de antemano por su valiosa ayuda.

Mira este fragmento de código extraido de Boletin Pascal:

http://www.latiumsoftware.com/es/pascal/delphi-1.php#2

procedure TThread1.Execute; // Ejecución del hilo
var i: integer;
begin
for i := 1 to 100000 do begin
Synchronize(UpdateProgressBar); // Actualiza la barra de
// progreso en el hilo ppal.
if Terminated then break; // Finaliza el bucle si el
// hilo es detenido
end;//for
end;

procedure TThread1.UpdateProgressBar;
// Este método es llamado desde el método Execute en modo
// sincronizado para que se ejecute en el hilo principal de la
// VCL, evitando posibles conflictos multi-hilos.
begin
ProgressBar1.StepIt; // Hace avanzar la barra de progreso
end;

SUERTE

yo creo que es un error de automatizacion OLE.