свой. попробуйте все же дождаться от SysSockConnect FALSE
IF ( step = 3 ) THEN
connectCounter := connectCounter + 1;
sa.sin_family := SOCKET_AF_INET;
sa.sin_addr:=SysSockHtonl( tmpHost );
sa.sin_port := SysSockHtons( tmpPort );
IF NOT SysSockConnect( handle, ADR( sa ), SIZEOF( sa ) ) THEN
step := 5;
END_IF
RETURN;
END_IF
