Отсутствует подключение клиента к серверу

[fn12gl34]

Здравствуйте. Пишу примитивный клиент-сервер на сокетах. И почему-то не подключается клиент к серверу. Ниже прикладываю отрывки кода и сами ошибки.

Сервер:

procedure Tserverform.N1Click(Sender: TObject);
begin
IdIPWatch1.Active:=true;
host := IdIPWatch1.LocalIP;
server1.Port := 28965;
server1.Active := true;
server1.Open;
mainconsole.items.Add('Сервер запущен.');
mainconsole.items.Add('Адрес сервера: '+host);
mainconsole.items.Add('Порт сервера: '+inttostr(server1.Port));
end;

Клиент:

procedure TForm1.Button2Click(Sender: TObject);
begin
clientsocket1.Host := '172.0.0.1';
clientsocket1.Port := 28965;
clientsocket1.Active := true;
clientsocket1.Open;
end;

Когда компилирую сервер и жму на кнопку "Подключиться" в ивент логе появляется надпись выделенная красным: Thread Start: Thread ID: 6452. Process server.exe (8436).

Когда оба проекта запускаю с папки и пытаюсь подключить клиент к серверу появляется ошибка: Asynchronous socket error 10049.

В упор не понимаю, в чем дело. Прошу вашей помощи

[Slym]

172.0.0.1->127.0.0.1

[fn12gl34]

Да это уже давно заметил и поправил) но все равно не выходит. Опять ошибка 10049

[Slym]

.Active := true;
.Open;
что-то лишнее
проект в студию.