Не работает связка "Клиент-сервер"

[Omenus]

Сообственно клиент написан на асме masm а сервер на delphi 7 на основе winSock
сообственно вот:

1. http://pastebin.com/jRd90tbH сервер

2. http://pastebin.com/D7sT7eGB клиент

Я так понимаю что я где-то ошибся в сервере т.к. проверка клиента проходит на ура мессага успешно выскакивает

Проблема заключается в том что сервер не отображает передаваемое ему сообщение.

Буду очень рад любой помощи.

[VAM]

Уберите в приведенном коде сервера строку

TcpServer1.Open;

Ею Вы включаете сервер и он начинает слушать указанный Вами порт. В событии получения данных OnAccept ее быть не должно. В данном событии уже надо читать и обрабатывать приходящие данные.
Включайте его, к примеру, при старте программы.