Проверка новой версии программы

Var HTTP : THumHTTPClient;
Begin
  HTTP := THumHTTPClient.Create;
  If not HTTP.Download('http://127.0.0.1/version.txt','',HTTP_HEAD {Только проверить}) then ShowMessage('Не удалось подключиться');
  If HTTP.ResCode<>200 then
    ShowMessage('Файл не найден')
  else
  Begin
    HTTP.Download('http://127.0.0.1/version.txt','',HTTP_GET);  // Скачать
    S := HTTP.Body; // Содержимое файла
// Либо можно указать второй аргумент - имя файла... тогда сохранит в этот файл
    HTTP.Download('http://127.0.0.1/version.txt','C:\file.txt',HTTP_GET);
  End;
  HTTP.Free;
End;

function DownloadFile(const hwd:cardinal; const from:string;
                      const tos:string; out size:integer;
                       cmd:integer):boolean;  Export; stdcall;
var
  F: File;
  ResumePos, BufferLen, SumSize: DWORD;
  hSession, hURL: HInternet;
  Buffer: array[1..1024] of Byte;
  nado,err: boolean;
begin
 Result:=False;
 SumSize := 0;
 ResumePos := 0;  //Èíèöèàëèçèðóåìñÿ
 AssignFile(F, tos); //Ñâÿæåìñÿ ñ ôàéëîì
 IF GetFileSize(tos) > 3 then //Åñòü ëè íà äèñêå ýòîò ôàéë
 begin
  Reset(f); //Ax, åñòü? Îòêðîåì!
  ResumePos:=FileSize(F); //Îòêóäà äîêà÷àòü
  Seek(F, FileSize(F)); //À ïèñàòü áóäåì â êîíåö
 end
   else
   ReWrite(f); //À ðàç íåò, òàê ñîçäàäèì
 NADO := TRUE; //Íàäî êà÷àòü...
   //Îòêðûëè ñåññèþ
 hSession:=InternetOpen(PChar(ParamSTr(0)), PRE_CONFIG_INTERNET_ACCESS, nil, nil, 0);
   //È íàø ÓÐË
 hURL := InternetOpenURL(hSession,PChar(from),nil, 0, cmd, 0);
   //Ñêîëüêî òàì íàø ôàéë âåñèò?
 internetQueryDataAvailable(hURL,SumSize,0,0);
 size:=SumSize; //Ñîîáùèì îá ýòîì
 if ResumePos>0 then //Åñëè äîêà÷èâàåì,
 begin
  InternetSetFilePointer(hURL,ResumePos,nil,0,0); //Òî ñìåñòèìñÿ
 end;
 REPEAT //Êà÷àåì             
  err:=InternetReadFile(hURL, @Buffer,SizeOf(Buffer),BufferLen); //×èòàåì áóôåð
  IF err= false then //Îøèáêà ÷òåíèÿ
  begin
   MessageBox(0,'Ïðîèçîøåë îáëîì :(','ERROR',MB_ICONERROR +MB_OK); //Ñîîáùèì è âûõîäèì
   exit;
  end;
  BlockWrite(f, Buffer, BufferLen); //Ïèøåì â ôàéë
 
 UNTIL
  (BufferLen = 0) or (NADO = FALSE);
    //Êà÷àåì, ïîêà íå âñå èëè íàäî
 CloseFile(f);
 InternetCloseHandle(hSession)   ;
 Result:=True;
    // MessageBox (0,'Óñïåøíî çàãðóæåíî!','',MB_OK);
end;