...
hSession := InternetOpen( PChar( Agent ), INTERNET_OPEN_TYPE_PRECONFIG, Nil, Nil, 0 );
   hConnect := InternetConnect( hSession, PChar( HostName ), INTERNET_DEFAULT_HTTP_PORT, PChar( FUserName ), PChar( FPassword ), INTERNET_SERVICE_HTTP, 0, 0 );

   RequestMethod := 'GET';
   InternetFlag := INTERNET_FLAG_RELOAD;
   AcceptType := PChar( 'Accept: ' + '*/*' );

   hRequest := HttpOpenRequest( hConnect, RequestMethod, PChar( FileName ), 'HTTP/1.0', PChar( FReferer ), @AcceptType, InternetFlag, 0 );
   HttpSendRequest( hRequest, Nil, 0, Nil, 0 );