URLDownloadToFile возращает неверное значение

URLDownloadToFile (nil,'http://сайт.../ver.txt','ver.txt', 0, nil);
assignFile(f,'ver.txt');
Reset(f);
ReadLn(f,S);
CloseFile(f);
MessageBox(handle, PChar('Версия: '+S), PChar('UPDATE'),(MB_OK+MB_ICONQUESTION));
 
if version <> StrToInt(s) then
begin
MessageBox(handle, PChar('Доступна новая версия: '+S), PChar('UPDATE'),(MB_OK+MB_ICONQUESTION));
UpdateP();
end;
DeleteFile('ver.txt');

uses Wininet;
 
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), NTERNET_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;