Version: File;
 Versionfrominternet: File;
 ReadenVersion: String;
 ReadenVersion2: String;
 SetupPath: TStream;
 SetUPonlinePath: File;
 TSTREAMONLINEVERSION: TStream;

procedure TForm1.FormCreate(Sender: TObject);
begin
TSTREAMONLINEVERSION := TFileStream.Create('./data/OnlineVersion.ini', fmCreate);
 try
   Downloader.Get('http://www.gooooogle.de/Version.ini',TSTREAMONLINEVERSION);
 finally
 end;

assignfile(Version,'./data/BatchMakerVersion.ini');
rewrite(Version); // Öffne die Datei für den Schreib-Modus
ReadLn(Version,ReadenVersion);
CloseFile(Version);
assignfile(Versionfrominternet,'./data/OnlineVersion.ini');
rewrite(Versionfrominternet); // Öffne Datei für den Schreib Modus
ReadLn(Versionfrominternet,ReadenVersion2);
CloseFile(Versionfrominternet);

If ReadenVersion < ReadenVersion2 then begin// Wenn die Version im Internet neuer ist ...
// Frag benutzer nach Aktion und wenn Ja, dann update
If MessageDlg('Es sind Updates vorhanden ! Sollen diese Jetzt Gedownloadet werden ?', mtConfirmation, [mbyes, mbno], 0) = mrYes then begin
// Benutzer Stimmt zu !
SetupPath := TFileStream.Create('./data/setup.exe', fmCreate);
try
Downloader.Get('http://www.goooogle.de/BatchMaker/setup.exe',SetupPath);
finally
SetupPath.Free;
// Gedownloadet ...
MessageDlg ('Das Update Wurde Erfolgreich Heruntergeladen ... Der Installer führt sie durch das Update','Erfolg !');
ShellExecute(Handle, nil, SetupPath, nil, PChar(CurrentDir), SW_NORMAL); // Starte die Setup.exe
Form1.Close
end
end
Else // Benutzer möchte kein Update
MessageDlg('Abgebrochen. Sie Werden beim nächsten Start von Windows nocheinmal gefragt.', mtInformation, [mbOK], 0)
Else
// Computer hat die Neuste Version
end;
end.