Com Объекты и TcpServer

[part13an]

Как я понял ТСП сервер прослушивает порт в другом(своём) потоке, из-зи этого у меня вылетает ошибка "Вызовите метод CoInitialize()" в следующем участке кода:

procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
begin
//создание Ком объекта
Ole1C := Unassigned;
Ole1C := CreateOleObject('V77.Application');
ResOpen:=Ole1C.Initialize(Ole1C.RMT rade, '/DC:\Bases\1c /NËþäìèëà /P1', '');

//считываем данные
if Length(NameReference)>0 then begin
if YesLinkTo1C_Any(handle1C) then begin
OleObj:=handle1C.CreateObject('Ñïðà âî÷íèê.'+NameReference);
if OleObj.ÂûáðàòüÝëåìåíòû>0 then begin
while OleObj.Ïîëó÷èòüÝëåìåíò>0 do
begin
back_s:= back_s+OleObj.Êîä+#164+OleObj.Íàèìå íîâàíèå+#166;
end;
end;
end;
end;
//передаём данные
ClientSocket.Sendln(AnsiToUtf8( back_s));
end;

У кого какие идеи, пожалуйста, поделитесь.