Цитата:
diSocket:=SysSockCreate(SOCKET_AF_INET, SOCKET_STREAM, SOCKET_IPPROTO_IP);
IF diSocket <> SOCKET_INVALID THEN
SysSockIoctl(diSocket, SOCKET_FIONBIO, ADR(dint_true));
sa.sin_family:=SOCKET_AF_INET;
sa.sin_addr:=SysSockNtohl(DWORD_OF_BYTE(192,168,1, 99));
IF sa.sin_addr <> SOCKET_INADDR_NONE THEN
sa.sin_port:=SysSockNtohs(iPort);
IF SysSockConnect(diSocket, ADR(sa), SIZEOF(sa)) <0 THEN
SysSockClose(diSocket);
diSocket:=SOCKET_INVALID;
END_IF
ELSE
SysSockClose(diSocket);
diSocket:=SOCKET_INVALID;
END_IF
END_IF
TcpClientOpenSocket:=diSocket;
так должно работать