Datei aus dem Internet herunterladen - Onlineaktualisierung

[AlexanderBrade]

Hallo, ich habe nach Anleitung alle Prozeduren zur Onlineaktualiserung mit Hilfe einer txt.Datei in mein Projekt integriert, allerdings lädt er bei mir die Datei garnicht herunter!

Anbei mein Quelltext(ich habe das in das FormCreate des 1. Formulars integriert)

Delphi-Quellcode:

   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);     //Das macht er schon nicht, dh. die Datei wird nicht herunter geladen!

  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;