Ошибка при установке TCP-соединения

Перем ws;

Процедура КнопкаВыполнитьНажатие(Кнопка)
	Попытка
		ws = Новый COMОбъект("mswinsock.winsock");
		ws.LocalPort = 8080;
		ws.Connect();
		сообщить("ОК");
		
	Исключение
		Сообщить(ОписаниеОшибки());
	КонецПопытки;
	
	Попытка
		ДобавитьОбработчик ws.Close, Close1;
		ДобавитьОбработчик ws.Connect, Connect;
		ДобавитьОбработчик ws.ConnectionRequest, ConnectionRequest;
		ДобавитьОбработчик ws.DataArrival, DataArrival;
		ДобавитьОбработчик ws.Error, Error;
		ДобавитьОбработчик ws.SendComplete, SendComplete;
		ДобавитьОбработчик ws.SendProgress, SendProgress;
	Исключение
		Сообщить(ОписаниеОшибки());
	КонецПопытки;
	ПодключитьОбработчикОжидания("ПоказатьСтатус", 3);
КонецПроцедуры

Процедура ПоказатьСтатус()
	Сообщить(ws.State);
	ОтключитьОбработчикОжидания("ПоказатьСтатус");
КонецПроцедуры

Процедура Close1()
	Сообщить("Close");
КонецПроцедуры

Процедура Connect()
	Сообщить("Connect");
КонецПроцедуры

Процедура ConnectionRequest(requestID)
	Сообщить("ConnectionRequest");
КонецПроцедуры

Процедура DataArrival(bytesTotal)
	Сообщить("DataArrival");
КонецПроцедуры
	
Процедура Error(Number, Description, Scode, Source, HelpFile,HelpContext, CancelDisplay)
	Сообщить("Error");
КонецПроцедуры

Процедура SendComplete()
	Сообщить("SendComplete");
КонецПроцедуры

Процедура SendProgress(bytesSent, bytesRemaining)
	Сообщить("SendProgress");
КонецПроцедуры