1:
2:
3:
4:
5:
6:
7:
8:

nmhttp1.get('http://url.de/version.txt');

{wenn fertig dann}

memo1.lines.loadfromfile('version.txt');
if memo1.lines[0] > 1 then .....
else
......                    

1:
2:

var version:string;
version := idhttp1.get ('http://deineseite/latestversion.txt')                    

1:

1.2                    

1:
2:
3:
4:
5:
6:
7:
8:

var version:string; 
version := idhttp1.get ('http://deineseite/latestversion.txt');

procedure TForm1.IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
if version > versionsvariable then downloadnow() else ShowMessage('Keine neue Version vorhanden!');end;

end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
Label1.Caption:=idHttp1.url.Document+' ('+inttostr(AWorkCount div 1024)+' kB von '+inttostr(IdHTTP1.Response.ContentStream.Size div 1024)+' kB)';
Gauge1.Progress:=AWorkCount*100 div IdHTTP1.Response.ContentStream.Size;
application.ProcessMessages;
end;

procedure downloadnow();
var Datei: TFIleStream;
      woher,wohin: String;
begin
  woher:='http://www.deineseite.de/datei.exe'; //Quelle
  wohin:='C:\datei.exe'; //Ziel
  Datei:=TFileStream.create(wohin,fmCreate);
  IdHttp1.Get(woher,Datei);
  Datei.free;

end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

function TForm1.GetVersion: string;
var
  VerInfoSize: DWord;
  VerInfo: Pointer;
  VerValueSize: DWord;
  VerValue: PVSFixedFileInfo;
  Dummy: DWord;
begin
  VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);
  GetMem(VerInfo, VerInfoSize);
  GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);
  VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
  with VerValue^ do
  begin
    result := IntTostr(dwFileVersionMS shr 16);
    result := result + '.' + IntTostr(dwFileVersionMS and $FFFF);
    result := result + '.' + IntTostr(dwFileVersionLS shr 16);
    result := result + '.' + IntTostr(dwFileVersionLS and $FFFF);
  end;
  FreeMem(VerInfo, VerInfoSize);
end;