TServerSocket + WinSock

При нажатии на кнопку выполняется следующий код:

var
addr: TSockAddr;
FSocket : TSocket;
begin
addr.sin_family := AF_INET;
addr.sin_addr := LookupName;
addr.sin_port := htons(1025);
connect(FSocket, @addr, sizeof(addr));
closesocket(FSocket);
end;

Затем нажимаю на вторую кнопку и запускаю TServerSocket:

with TServerSocket.Create(self) do
begin
Port := 1025;
Active := True;
end;

Возникает ошибка 10048.
Подскажите:
1. Что не так.
2. Как поправить.

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.