... hInternet, hConnect, lOk // cargamos la DLL si no estaba cargada hWinINet := WinINet() if hWinINet < 0 .or. hWinINet >= 32 hInternet := InternetOpen( "Valdenebro", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 ) endif hConnect := INTERNETCONNECT( hInternet, cFtpAddress, nPort, cUser, ...