char *url="http://www.sql.ru/forum/actualtopics.aspx?bid=21";
    char Buf[ 129 ];
    unsigned long dwRead;
    TFileStream* fs = new TFileStream("C:\\Test.html",fmCreate);

    HINTERNET hInet = InternetOpen("DownloadFile",INTERNET_OPEN_TYPE_PRECONFIG,NULL,NULL, 0 );
    HINTERNET hUrl = InternetOpenUrlA(hInet,url,NULL,NULL, 0 , 0 );

    if( hUrl )
    {
        do
        {
            InternetReadFile(hUrl,(void*)Buf, 128 ,&dwRead);
            fs->Write(Buf,dwRead);
        }while(dwRead);
    }

    delete fs;
    InternetCloseHandle(hInet);
    InternetCloseHandle(hUrl);

    IdHTTP->Get("http://www.sql.ru/forum/actualtopics.aspx?bid=21",fs);