Bild aus Internet laden

[Richie1103]

Vielen Dank für den Quellcode.
Hab mal den Link bei mir durch das original ersetzt. Das Programm läuft, mach aber irgendwie gar nichts ^^. Lädt mir die Bilder nicht runter. (zummindestens erscheinen keine neuen Datein in dem ordner). sieht irgend jemand nen Fehler?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var  Ziel,Datei: string;
      i:Integer;
begin
  For i:=1 to 168 do
  begin
    try
      Datei := Format('http://wowdata.buffed.de/img/icons/wow/64/inv_potion_%d.png',[i]);
      Ziel := 'C:\Documents and Settings\User\Desktop\Neuer Ordner';
      UrlDownloadToFile(nil, PAnsiChar(Datei), PAnsiChar(Ziel), 0, nil);
    except
      on E: Exception do
        MessageBox(Handle,PAnsiChar(E.Message),'Fehler',MB_OK or MB_ICONERROR);
    end;
  end;