Сохранение HTML кода страницы.

void TForm1::GetHtmlCode(AnsiString Url)
 {
TInetFile*f=new TInetFile();
f->OpenFile(Url.c_str());
int b=8;
char buff[2048];
TFileStream*ef=new TFileStream(Url,fmCreate);
try
{
while(b>0)
        {
        b=f->Read(buff,2048);
        ef->Write(buff,b);
        Application->ProcessMessages();
        }
}catch(...)
        {
        ShowMessage("Ошибка");
        delete f;
        delete ef;
 
        }
delete f;
delete ef;
 Label1->Caption = buff[1];
 //
 }

void TForm1::GetHtmlCode(AnsiString Url,AnsiString path)
{
...
TFileStream*ef=new TFileStream(path,fmCreate);
...
}

HINTERNET session = InternetOpen("Our Agent", 
  INTERNET_OPEN_TYPE_PROXY, 
  "192.168.0.1:3128", /* наш прокси 192.168.0.1 порт 3128 */
  "", 0);

void TForm1::GetHtmlCode(AnsiString Url)
 {
 
 HINTERNET session = InternetOpen("Our Agent",
INTERNET_OPEN_TYPE_PROXY,"38.101.238.64:80","", 0);
 TInetFile*f=new TInetFile();
f->OpenFile(Url.c_str());
 
int b=8;
char buff[1000000];
try
{
while(b>0)
        {
        b=f->Read(buff,1000000);
        Application->ProcessMessages();
        }
}catch(...)
        {
        ShowMessage("Ошибка");
        delete f;
    }
delete f;
 
 Memo1->Lines->Text = buff;
 
 //
 }

HINTERNET file;
file = InternetOpen("Our Agent", PRE_CONFIG_INTERNET_ACCESS, 0, 0, 0);
file = InternetOpenUrl(file, Url.c_str(), 0, 0, 0, 0);
char buf[64000];
unsigned long len;
 InternetReadFile(file, buf, sizeof(buf), &len);

///class TInetFile
...
if(HttpQueryInfo(hUrl, HTTP_QUERY_CONTENT_LENGTH, buffer, &buflen, &index))
        {
        FSize=StrToInt(buffer);
        }

char buf[6400000];
//----------------------------------------------------------------------
HINTERNET file;
file = InternetOpen("Our Agent", PRE_CONFIG_INTERNET_ACCESS, 0, 0, 0);
file = InternetOpenUrl(file, Url.c_str(), 0, 0, 0, 0);
unsigned long len;
 InternetReadFile(file, buf, sizeof(buf), &len);
 TStringList *GPage = new TStringList;
 GPage->Text = buf;
 GPage->SaveToFile("c://page.html");

InternetReadFile

TMemoryStream