Обновление программы

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, StdCtrls;
 
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    About1: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    IdHTTP1: TIdHTTP;
    Memo1: TMemo;
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.N6Click(Sender: TObject);
var CanClose: boolean;
begin
 
  if Application.MessageBox('Âû äåéñòâèòåëüíî õîòèòå âûéòè?','Ïîäòâåðæäåíèå',
     MB_YESNO+MB_ICONQUESTION)= IDNO then CanClose:=True;
end;
 
procedure TForm1.N7Click(Sender: TObject);
var
HTTP:TIdHTTP;
Response:TFileStream;
s:string;
Version:TStringList;
begin
HTTP:=TIdHTTP.Create(nil);
Version:=TStringList.Create;
 try
 s:=HTTP.Get('http://sait.ru/version.txt');
 Version.LoadFromFile('version.txt');
  if Pos(s,Version.Text)<>0 then
   begin
   ShowMessage('Îáíîâëåíèé íåò, íî ñêîðî áóäåò.')
   end
  else
   begin
   ShowMessage('Îáíîâëåíèå åñòü, ñåé÷àñ áóäó çàãðóæàòü.');
   Response:=TFileStream.Create('program.rar',fmCreate);
   HTTP.Get('http://sait.ru/program.rar',Response);
   Version.Add(s);
   Version.SaveToFile('version.txt');
   end;
 finally
 HTTP.Free;
 Version.Free;
 end;
end;
end.

function IsConnectedToInternet: Boolean; //Проверка соединения 
      var
        dwConnectionTypes: DWORD; 
      begin
        dwConnectionTypes := 
          INTERNET_CONNECTION_MODEM + 
          INTERNET_CONNECTION_LAN + 
          INTERNET_CONNECTION_PROXY; 
        Result := InternetGetConnectedState(@dwConnectionTypes, 0); 
      end;
 
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;
 
procedure TForm1.Button1Click(Sender: TObject);
 var
 s, txt: string; //Переменные
 i: integer;    //
 begin
 //Проверям есть ли соединение с интернетом?! Если есть то начинаем проверку обновления. 
 if IsConnectedToInternet then
   begin
    Memo1.Lines.Add('['+timetostr(time)+'] - Подключаемся к серверу');
    s := IdHTTP1.Get('http://yoursite.ru/project.html');  // Get запрос на страницу с информацией 
    title.Caption := Copy(s, pos('', s) + 7, pos('', s) - pos('', s) -7); //Название страницы, к примеру 
    size.Caption := Copy(s, pos('<size>', s) + 6, pos('</size>', s) - pos('<size></size>', s) -6); //Размер файла, пример: 356 KB 
    version.caption := Copy(s, pos('<version>', s) + 9, pos('</version>', s) - pos('<version>', s) -9); //Версия, я бы посоветовал вам делать так, между <version>1</version>, так намного легче. 
    link.caption := Copy(s, pos('', s) + 7, pos('', s) - pos('', s) -7); //Ссылка на  скачивание файла 
    begin //strtofloat, т.е. если Label1.Caption больше "0", то появляется окно. 
    if strtofloat(label1.caption)>0 then      
    begin
    Memo1.Lines.Add('['+timetostr(time)+'] - Доступна новая версия!');
    sleep(500); //Типо у нас прога крутая такая ждёт... 500мс :)
 if MessageDlg('Доступно новое обновление! Начать скачивание?', mtConfirmation, 
      [mbYes, mbNo],0)=mrYes 
      then //Если пользователь нажал на "Yes", то начинаем обновление.
 begin
       Memo1.Lines.Add('['+timetostr(time)+'] - Идёт скачивание обновления!');
       FileOnNet := link.caption; //Наша ссылка на  скачивание
       LocalFileName := 'Project.exe'; //Локальная директория, т.е. куда будет сохранять обновление. 
       if GetInetFile(FileOnNet, LocalFileName) = True then
       Memo1.Lines.Add('['+timetostr(time)+'] - Обновление завершилось!');
       ShowMessage('Загрузка успешнно завершина!') //Пока пользователь не нажмёт "ОК", программа не закрывается.
       ShellExecute(Handle, nil, PChar(LocalFileName), nil, nil, SW_SHOW); //И открываем скачанное обновление
       Close; //Беспощадно закрываем программу!
 else
       ShowMessage('Ощибка! Обновление не загруженно!') //Если ошибка
 end
 end
 end
 end
 end
 else //Если
       Showmessage('Соединение с интернетом отсутствует!'); //Если нет соединения с интернетом выводим это сообщение!
 // Это конец проверки соединения с интернетом. 
 end;

[Hint] Unit1.pas(60): Value assigned to 'GetInetFile' never used
[Error] Unit1.pas(124): Undeclared identifier: 'title'
[Error] Unit1.pas(125): Object or class type required

procedure TForm1.N7Click(Sender: TObject);
var
HTTP:TIdHTTP;
Response:TFileStream;
s:string;
Version:TStringList;
begin
HTTP:=TIdHTTP.Create(nil);
Version:=TStringList.Create;
 try
 s:=HTTP.Get('http://sait.ru/version.txt');
 Version.LoadFromFile('version.txt');
  if Pos(s,Version.Text)<>0 then
   begin
   ShowMessage('Обновлений нет, но скоро будет.')
   end
  else
   begin
   ShowMessage('Обновление есть, сейчас буду загружать.');
   Response:=TFileStream.Create('program.rar',fmCreate);
   HTTP.Get('http://sait.ru/program.rar',Response);
   // нужно сохранить архив
   TMemoryStream(Response).SaveToFile('program.rar');
   Response.Free;
   Version.Add(s);
   Version.SaveToFile('version.txt');
   end;
 finally
 HTTP.Free;
 Version.Free;
 end;
end;