1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

uses
  WinInet;

procedure DeleteIECache;
var
  lpEntryInfo: PInternetCacheEntryInfo;
  hCacheDir: LongWord;
  dwEntrySize: LongWord;
begin
  dwEntrySize := 0;
  FindFirstUrlCacheEntry(nil, TInternetCacheEntryInfo(nil^), dwEntrySize);
  GetMem(lpEntryInfo, dwEntrySize);
  if dwEntrySize > 0 then lpEntryInfo^.dwStructSize := dwEntrySize;
  hCacheDir := FindFirstUrlCacheEntry(nil, lpEntryInfo^, dwEntrySize);
  if hCacheDir <> 0 then 
  begin
    repeat
      DeleteUrlCacheEntry(lpEntryInfo^.lpszSourceUrlName);
      FreeMem(lpEntryInfo, dwEntrySize);
      dwEntrySize := 0;
      FindNextUrlCacheEntry(hCacheDir, TInternetCacheEntryInfo(nil^), dwEntrySize);
      GetMem(lpEntryInfo, dwEntrySize);
      if dwEntrySize > 0 then lpEntryInfo^.dwStructSize := dwEntrySize;
    until not FindNextUrlCacheEntry(hCacheDir, lpEntryInfo^, dwEntrySize);
  end;
  FreeMem(lpEntryInfo, dwEntrySize);
  FindCloseUrlCache(hCacheDir);
end;                    

1:
2:
3:
4:
5:
6:

  NewVersion := IdHttp1.Get(VersionURL);
  if (NewVersion <> CurrentVersion) and (NewVersion <> '') then
  begin
    ...
    MessageBox(Hanlde, 'Update vorhanden!', 'Information', MB_OK or MB_ICONINFORMATION);
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

try
  NewVersion := IdHttp1.Get(VersionURL);
  showmessage ('Version vom Server: ' + NewVersion + #13'Lkale Version: ' + CurrentVersion);
  if (NewVersion <> CurrentVersion) and (NewVersion <> '') then
  begin
    ...
    MessageBox(Hanlde, 'Update vorhanden!', 'Information', MB_OK or MB_ICONINFORMATION);
  end;
except
  showmessage ('Fehler bei der HTTP Verbindung');
end;                    

1:
2:

  NewVersion := Form1.IdHttp1.Get(URL);
  // if NewVersion <> CurrentVersion ...