1:

procedure LoadFromFile(const FileName: string); virtual;                    

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

procedure TForm1.Button1Click(Sender: TObject);
const
Path = 'c:\test.txt';
begin
  RichEdit1.PlainText := True;
  RichEdit1.Lines.LoadFromFile(Path);
  if RichEdit1.Lines = GetFileVersion(ParamStr(0))   then
  ShowMessage('Gleich')
  else
  ShowMessage('Ungleich')
end;                    

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

procedure TForm1.Button1Click(Sender: TObject);
const
Path = 'c:\test.txt';
Path2 = 'c:\test2.txt';
begin
  RichEdit1.Lines.LoadFromFile(Path);
  RichEdit2.Lines.LoadFromFile(Path2);
  if RichEdit1.Lines = RichEdit2.Lines   then
  ShowMessage('Gleich!')
  else
  ShowMessage('Ungleich!')
end;                    

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

procedure TForm1.UpdateSucheClick(Sender: TObject);
const
Path = 'c:\test.txt';
Path2 = 'c:\test2.txt';
begin
  MyVersionRich.Lines.LoadFromFile(Path);
  IEVersionRich.Lines.LoadFromFile(Path2);
  if MyVersionRich.Lines[1] = IEVersionRich.Lines[1]   then
  ShowMessage('Kein Update notwendig!')
  else
  ShowMessage('Bitte Updaten!')
end;

procedure TForm1.AbbruchButtonClick(Sender: TObject);
begin
Close;
end;                    

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

begin
     FileOnNet:='http://gta-place.s3.cybton.com/test2.txt';
     LocalFileName:='test2.txt';
  MyVersionRich.Lines.LoadFromFile(Path);
  IEVersionRich.Lines.LoadFromFile(Path2);
  if MyVersionRich.Lines[1] = IEVersionRich.Lines[1]   then
  ShowMessage('Kein Update notwendig!')
  else
  ShowMessage('Bitte Updaten!')
end;                    

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:
29:
30:
31:
32:

uses Wininet;

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;                    

1:
2:

FileOnNet:='http://gta-place.s3.cybton.com/test2.txt'; 
LocalFileName:='test2.txt';                    

1:
2:

const
  szCurrentVersion = '1.1.0.0';                    

1:

{.$DEFINE USEWEB}                    

1:
2:

function InternetGetConnectedState(lpdwFlags: PDWORD;
  dwReserved: dword): boolean; stdcall; external 'wininet.dll';                    

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

initialization
  if(WsaStartup(MAKEWORD(1,0),wsadata) <> 0) then Application.Terminate;
  if(CoInitialize(nil) <> S_OK) then Application.Terminate;
finalization
  CoUninitialize;
  WsaCleanup;
end.                    

1:
2:
3:
4:

function IsOnline: boolean;
begin
  Result  := InternetGetConnectedState(nil,0);
end;                    

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

<?xml version="1.0" encoding="ISO-8859-1"?>
<DOCTYPE products [
  ...
]>
<products>
  <product>
    <name>Dein Programm 1</name>
    <version>1.0.0.0</version>
    <url>http://www.blablabla.de/download.exe</url>
  </product>
  <product>
    <name>Dein Programm 2</name>
    <version>2.0.0.0</version>
    <url>http://www.blablabla.de/download2.exe</url>
  </product>
</products>                    

1:
2:

const
  THISAPP     = 'Dein Programm 2';                    

1:
2:
3:
4:

    node := xmldoc.selectSingleNode(
      '//products/product[name="' + THISAPP + '"]/version');
    url  := xmldoc.selectSingleNode(
      '//products/product[name="' + THISAPP + '"]/url');