Скачка файлов... + except

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
try
  Result:=False;
  sAppName := ExtractFileName(Application.ExeName);
  hSession := InternetOpen(PChar(sAppName),
  INTERNET_OPEN_TYPE_PRECONFIG,
  nil, nil, 0);
  hURL := InternetOpenURL(hSession,
  PChar(fileURL),
  nil,0,0,0);
    try
     AssignFile(f, FileName);
     Rewrite(f,1);
       repeat
         InternetReadFile(hURL, @Buffer,
         SizeOf(Buffer), BufferLen);
[COLOR="Red"]         BlockWrite(f, Buffer, BufferLen)[/COLOR]
       until BufferLen = 0;
             CloseFile(f);
             Result:=True;

      finally
             InternetCloseHandle(hURL)
      end
      finally
             InternetCloseHandle(hSession)
end;
end;

function GetWindowsFolder:string;
var p:PChar;
begin
GetMem(p, MAX_PATH);
result:='';
if GetWindowsDirectory(p, MAX_PATH)>0 then   result:=string(p);
FreeMem(p);
end;