Помогите с программой ПлЗ.

[Manoff]

Здравствуйте.Пишу код:

program Project1;
uses
  Windows,SysUtils,Registry,wininet;
var
  d:string;
  hSession, hURL: HInternet;
  Buffer: array[1..1024] of Byte;
  BufferLen: DWORD;
  f: file;
  sAppName,fileURL,FileName: string;
{$R *.dfm}
{$R *.res}
begin
vi:='ПУТЬ ДЛЯ СОЗДАНИЯ ФАЙЛА';  d:='САЙТ С ФАЙЛОМ';
  sAppName := ExtractFileName(vi);
  hSession := InternetOpen(PChar(d),INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
    hURL:= InternetOpenURL(hSession,PChar(sappName), nil, 0, 0, 0);
    try
      AssignFile(f, FileName);
      Rewrite(f,1);
      repeat
        InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
        BlockWrite(f, Buffer, BufferLen);
      until
        BufferLen = 0;
      CloseFile(f);
    finally
      InternetCloseHandle(hURL);
    end;
  finally
    InternetCloseHandle(hSession);
  end;
end;
end;
end.

В итоге прога либо выдаёт ошибку , либо просто создаст пустой файл.
Объясните что я делаю неправельно и желательно покажите код.Заранее благодарен.

[Viteef]

Вот рабочая функция

function GetInetFile(const fileURL, FileName: string): boolean;
const
  BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  f: file;
  sAppName: string;
begin
  Result:=False;
  sAppName := ExtractFileName(Application.ExeName);
  hSession := InternetOpen(PChar(sAppName),
  INTERNET_OPEN_TYPE_PRECONFIG,
  nil, nil, 0);
  try
    hURL := InternetOpenURL(hSession,
    PChar(fileURL),
    nil,0,0,0);
    try
      AssignFile(f, FileName);
      Rewrite(f,1);
      repeat
        InternetReadFile(hURL, @Buffer,
        SizeOf(Buffer), BufferLen);
        BlockWrite(f, Buffer, BufferLen)
      until
        BufferLen = 0;
      CloseFile(f);
      Result:=True;
    finally
      InternetCloseHandle(hURL)
    end;
  finally
    InternetCloseHandle(hSession)
  end;
end;

Если не заработает, значит проблема не в коде