Работа с tcp протоколом

[BlackKing]

Всем доброго времени суток. Возникла задача подключение к удаленной базе через протокол tcp с идентификацией пользователя. Понял что нужно юзать Winsock но не могу понять как осуществить инициализацию пользователя и можно ли это все делать на стороне сервера а не на форме. Используя этот код получаю постоянную попытку коннекта.
Код:
Перем Winsock;
   Попытка
      Winsock = ЭлементыФормы.ДобавитьActiveX("MSWinsock.Winsock","WinSock",Ложь);
   Исключение
      Сообщить(ОписаниеОшибки());       
      Возврат;
   КонецПопытки;
   
   Сообщить("Подключение...");
   Winsock.Connect(СокрЛП("адрес"), "порт");
   Сообщить(Winsock.State);
   Пока Winsock.State <> 7 Цикл//ждем пока подключится
      Если Winsock.State = 9 Тогда//если ошибка
         Сообщить("ошибка сокета");
         Возврат;
      КонецЕсли;   
   КонецЦикла;   
   Сообщить(Winsock.RemoteHostIP);