Update Checker

procedure TForm2.Timer1Timer(Sender: TObject);
var
  vurl: string;
  link : String;
  apiv : String;
  http : TidHTTP;
  vers : String;
  exen : String;
  ver0 : Int64;
  ver1 : Int64;
  updt : String;
begin
  Timer1.Enabled := false;

  if FileExists('pass.ini') then exit;

  try
    vurl := 'http://localhost/version/';
    exen := ExtractFileName(paramstr(0));
    link := vurl + exen;
    apiv := vurl + 'file-version.html';
    updt := 'updater.exe';
    http := TidHTTP.Create(Self);
    vers := http.Get(apiv + '?filename=' + exen);
    vers := Copy(vers, 3, 50);
    ver0 := VersionToInt(ProgramVersion(exen));
    ver1 := VersionToInt(vers);

    if  (ver0 * ver1 <> 0) and (ver1 > ver0) then
    begin
      if Messagedlg('Telah Tersedia update sistem terbaru.'#13#10#13#10
                    + 'Versi saat ini : ' + ProgramVersion(exen)
                    + #13#10'Versi terakhir : ' + vers + #13#10#13#10
                    + 'Apakah anda akan melakukan update ?', mtConfirmation,
                      [mbYes, mbNo], 0) = mrYes then
      begin
        if FileExists(updt) then
        begin
          Application.Terminate;
          ShellExecute(0, 'open', PChar(updt), PChar(format('"%s" "%s"',
                       [link, paramstr(0)])), '', SW_SHOW);
        end else
        MessageDlg('Maaf File Updater tidak ditemukan'#13#10#13#10
                   + updt, mtError, [mbOK], 0);
      end;
    end;
  except
  end;
end;