Добавьте в step 0 после создания сокета перевод в неблокирующий режим:
SysSockSetOption(hSocket, SOCKET_SOL, SOCK_NBIO, 0, 0);
где SOCK_NBIO: WORD:=16#1014;

При этом обратите внимание на реализацию стадии получения данных и проверки ответа, там нужно убедиться, что вы получили все данные согласно вашему формату обмена.