Мультипоточность , работа с OLE объектами

TDBMS.Start:Booleaan;
var sInfo:String;
begin
        
         exe1C:=CreateOLEObject(progID);//V83.Application
         exe1C.Connect(cnnstr);
         handler_1C:=exe1C;
 
        // handler_1C pblic  член класса  TDBMS
         handler_1C.ModInfo.GetData('test',sInfo);//Тут Работает нормално
        
 
       sockTCPServer:=TIdTCPServer.Create(nil);
       sockTCPServer.OnExecute:=sockTCPServerExecute;
       sockTCPServer.OnConnect:=sockTCPServerConnect;
       sockTCPServer.OnStatus:=sockTCPServerStatus;
       sockTCPServer.OnDisconnect:=sockTCPServerDisconnect;
       sockTCPServer.DefaultPort:=3045;
       sockTCPServer.Active := True;
       sockTCPServer.StartListening;
        
end;
//------------
 procedure TDBMS.sockTCPServerExecute(AContext: TIdContext);
     var sData,sInfo:String;
   begin
      try
         sData:=AContext.Connection.IOHandler.ReadLn;
         if trim(sData)<>'' then
         begin
            //Если  Без CoInitialize(nil); Тогда ругается, что  CoInitialize has not been called
            //Если с  CoInitialize(nil); Тогда ругается, что   The application called an interface that was marshalled for a 
different thread
        
             CoInitialize(nil);// 
             handler_1C.ModInfo.GetData('test',sInfo);//Ругается
 
         end;
 
      Except
      ON e:Exception do
      end;
   end;

 TTHread.Synchronize( nil,
                    procedure
                     begin
                      GetData( 'test);
                     end);
 
 
TDBM. GetData(Const sDataIString);
   handler_1C.ModInfo.GetData('test',sInfo);

TTHread.Synchronize( nil,
                    procedure
                     begin
                      GetData( 'test);// Или любой другой метод (Либо юзает ОЛЕ фигня  либо нет) 
                     end);