Как докачать файл?

int __fastcall thrPar2::DownloadInetFile(const AnsiString &sURL, const AnsiString &sOutputFile)
{
    DOWNLOAD_DATA data;
    strcpy(data.Url, sURL.c_str());
 
    data.bFlag = true;
    HINTERNET hInetSession;
    HINTERNET hInetFile;
    HANDLE hFile;
    OVERLAPPED ovlp;
    DWORD dwOffset = 0;
    DWORD dwRead;
    TCHAR ReadBuf[4 * 1024];
 
    hInetSession =
        InternetOpenA(
        "Mozilla/4.0 (compatible; MSIE 6.0b; Windows NT 5.0; .NET CLR 1.0.2914)",
        PRE_CONFIG_INTERNET_ACCESS, NULL, NULL, 0); // Возвращает хэндл сессии
    if (hInetSession == NULL)
        return -1;
 
    hInetFile = InternetOpenUrlA(hInetSession, data.Url, NULL, 0, 0, NULL);
    // по сути открываем файл
    if (hInetFile == NULL)
        return -1;
 
    // получаем  информацию о размере данных
 
    DWORD dwIndex = 0;
    DWORD dwBuffLen = 20;
    char chBuff[20];
    BOOL bResult = HttpQueryInfoA(hInetFile, HTTP_QUERY_CONTENT_LENGTH, &chBuff,
        &dwBuffLen, &dwIndex);
    // по умолчанию будет -1, если не удастся узнать размер
    DWORD dwFileLength = -1;
    if (bResult && (GetLastError() != ERROR_HTTP_HEADER_NOT_FOUND))
        dwFileLength = StrToIntDef(chBuff, -1);
 
 
    hFile = CreateFileA(sOutputFile.c_str(), GENERIC_WRITE,
        FILE_SHARE_READ | FILE_SHARE_WRITE, NULL, OPEN_ALWAYS,
        FILE_ATTRIBUTE_NORMAL, NULL); // открываем файл для сохранения
    if (hFile == INVALID_HANDLE_VALUE) // проверяем
    {
        InternetCloseHandle(hInetSession); // закрываем сессию
        InternetCloseHandle(hInetFile); // закрываем файл
        return -1;
    }
 
    if (data.bFlag) // осуществляется докачка
            InternetSetFilePointer(hInetFile, GetFileSize(hFile, NULL), NULL,
        FILE_BEGIN, 0); // сдвигаем чтение на GetFileSize бит
 
    // начинаем скачку
    do {
        InternetReadFile(hInetFile, ReadBuf, sizeof(ReadBuf), &dwRead);
        // читаем в буффер
        if (dwRead >= 0) // если считали
        {
            ovlp.hEvent = NULL;
            ovlp.OffsetHigh = NULL;
            ovlp.Offset = GetFileSize(hFile, NULL);
 
            WriteFile(hFile, ReadBuf, dwRead, NULL, &ovlp); // пишем в наш файл
            // даём команду приложению - обработать сообщения
            dwOffset += dwRead;
        }
        else // не считали, пытаемся повторить скачивание
        {
            InternetCloseHandle(hInetSession); // закрываем сессию
            InternetCloseHandle(hInetFile); // закрываем удалённый файл
 
            hInetSession =
                InternetOpenA(
                "Mozilla/4.0 (compatible; MSIE 6.0b; Windows NT 5.0; .NET CLR 1.0.2914)",
                PRE_CONFIG_INTERNET_ACCESS, NULL, NULL, 0);
            // пытаемся повторить скачку
            if (hInetSession == NULL) {
                CloseHandle(hFile);
                return -1;
            }
 
            hInetFile = InternetOpenUrlA(hInetSession, data.Url, NULL, 0,
                0, NULL);
            if (hInetFile == NULL) {
                CloseHandle(hFile);
                InternetCloseHandle(hInetSession);
                return -1;
            }
 
            InternetSetFilePointer(hInetFile, dwOffset, NULL, FILE_BEGIN, NULL);
        }
        /*// выводим пользовательскую информацию
        // сколько осталось байт до конца чтения
        const DWORD dwBytesLeft = dwFileLength - dwOffset;
        // сколько закачано в процентах
        // рассчёты делаем в double для повышения точности
        const DWORD dwPercent =
            (DWORD)((double)dwOffset * 100.0 / (double)dwFileLength);
        Form1->Label1->Caption = "Осталось: " + AnsiString(dwBytesLeft) +
            " из " + AnsiString(dwFileLength) + " , Скачано: " +
            AnsiString(dwPercent) + "%";*/
        Application->ProcessMessages();
    }
    while (dwRead);
    // закрываем всё лишнее
    CloseHandle(hFile);
    InternetCloseHandle(hInetSession);
    InternetCloseHandle(hInetFile);
    return 1;
}