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';