procedure TForm1.FormCreate(Sender: TObject);
var Datei,Ziel:PChar;
    List: TStrings;

begin
  try
    Datei := 'http://alexanderbrade.al.funpic.de/abi/version.txt';
    Ziel := 'C:\';
    UrlDownloadToFile(nil, Datei, Ziel, 0, nil);

  except
ShowMessage('Ein Fehler ist aufgetreten! Programm wird beendet!');
Form1.Close;
  end;

 List := TStringList.Create;
try
  List.LoadFromFile('C:\version.txt');
  if List.Count>0 then
    Edit1.Text:=List[0];
    Edit2.Text:=List[1];
finally
  List.Free;
end;

if StrToInt(Edit1.text) > StrToInt(Label1.caption) then begin
ShowMessage('Es ist ein Update möglich!');
try
    Datei := 'http://alexanderbrade.al.funpic.de/abi/abi.zip';
    Ziel := 'C:\';
    UrlDownloadToFile(nil, Datei, Ziel, 0, nil);

  except
ShowMessage('Ein Fehler ist aufgetreten! Programm wird beendet!');
Form1.Close;
  end; end



else
ShowMessage('Es ist kein Update nötig! Die Software ist auf dem neusten Stand!');

{DeleteFile('C:\version.txt'); }

end;