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

uses
  URLMon  // u.U. auch ShellApi, mal kurz testen, habe ich jetzt nicht nachgeschaut


var
DestFile,version_1,version_2,version_3:string; 
const
  SourceFile = 'http://www.wo_auch_immer.de/vers/version.txt';
begin
  DestFile := extractFilePath(Application.Exename) + 'download\version.txt';
  if DownloadFile(SourceFile, DestFile) then
  begin   end else  ;					

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

  if fileexists (DestFile) then
  begin
  AssignFile(F, DestFile);
  Reset(F);
  readln(f); //Überschrift Prg.1
  readln(f,version_1);
  readln(f); //Überschrift Prg.2
  readln(f,version_2);
  readln(f); //Überschrift Prg.3
  readln(f,version_3);
  CloseFile(F);