Код:
xResult := SysSockConnect(diSock, ADR(stSocAddr), SIZEOF(stSocAddr));
не стоит доверять результату SysSockConnect