mehrere Dateien mit Indy downloaden

[strange-t]

also ich hab den library code in ne eigene procedure gepackt.
das ist folgendes:

Delphi-Quellcode:

procedure TForm1.Download(AFile, BFile: String);
begin
  //Initialiesieren
  Status.Caption := '';
  BytesKopiert := 0;
//  BytesInsgesamt := 0;
  Progress.Position := 0;
  //In edit 1 steht die downzuladene Datei (z.b. [url]http://www.server.com/datei.dat[/url])
  Status.Caption := 'Prüfe Header';
  // Durch die zwei nächsten Befehle wird die Größe ermittelt und ihn der Variable BytesInsgesamt abgespeichert
  IdHTTP.Head(BFile);
  BytesInsgesamt := IdHTTP.Response.ContentLength;
  //Wenn die Indy Komponente -1 zurückgibt dann bedeutet es des der die Dateigröße nicht zu verfügung
  //stellt und somit kann die Datei ganz normall heruntergeladen werden (ohne Fortschrittsanzeige)
  if BytesInsgesamt = -1 then
  begin
    Status.Caption := 'Normales herunterladen';
    Status.Caption := 'Erstelle Datei';
    //In Edit 2 steht welche Datei (z.b. C:\datei.dat)
    //Datei erstellen
    lStream:=TFileStream.Create(AFile, fmCreate or fmShareDenyNone);
    try
      //und "normal" herunterladen
      idHTTP.Get(BFile, lStream);
    finally
      if Assigned(lStream) then lStream.Free; //FileStream freigeben wenn gesetzt
    end;
    //Alles auf fertig stellen
    Status.Caption := 'Fertig';
    SpeedStatus.caption := 'Fertig';
    Button2.Enabled := TRUE;
    Animate1.Active := FALSE;
    exit;
  end;
  //Also wenn wir hier angelangt sind dann bedeutet es der Server hat uns die Dateigröße zur Verfügung gestellt.
  Progress.Max := BytesInsgesamt;
  Status.Caption := 'Erstelle Datei';
  //In Edit 2 steht welche Datei (z.b. C:\datei.dat)
  //Datei erstellen
  lStream:=TFileStream.Create(AFile, fmCreate or fmShareDenyNone);
  lStream.Position := 0;
  try
    repeat
      // Damit sich das Programm nicht aufhängt
      Application.ProcessMessages;
      //Nun setzen wir den Start nach die bereits kopierten Bytes
      IdHTTP.Request.ContentRangeStart := BytesKopiert;
      //Hier wird gebrüft ob die restlichen Bytes größer sind als cFileSplitSize
      if (BytesInsgesamt-BytesKopiert) > cFileSplitSize then
      begin
        //Hier wird einmal die cFileSplitSize eingestellt
        IdHTTP.Request.ContentRangeEnd := BytesKopiert+cFileSplitSize-1;
      end
      //Den rest der Datei
      else IdHTTP.Request.ContentRangeEnd := BytesInsgesamt;
      Application.ProcessMessages;
      //Den eingestellten Teil herunterladen und in die Datei speichern
      IdHTTP.Get(BFile, lStream);
      //BytesKopiert weiter setzen
      BytesKopiert := BytesKopiert+cFileSplitSize;
      //Progress und Status aktualliesieren
      Progress.Position := BytesKopiert;
      Status.Caption := GetSizeName(BytesKopiert)+'/'+GetSizeName(BytesInsgesamt);
    until (BytesKopiert >= BytesInsgesamt); //Schleife beenden wenn datei fertig
  finally
    if Assigned(lStream) then lStream.Free; //FileStream freigeben wenn gesetzt
  end;

end;

so und dann hab ich die for schleife. die wird durch n timer aufgerufen.
in der listbox steht zur zeit noch sowas wie 0=datei1.exe 1=datei2.dll
deshalb auch das stringreplace. dadurch wird z.b. 0= durch ' ' ersetzt dann ist FileToUpload = datei1.exe
Zu der ProgramToUpdate Variable ist zu sagen dass das eigentlich nur n weiterer Ordner für den downloadpfad is.
ich hoffe man versteht was ich meine *gg*

Delphi-Quellcode:

for i := 0 to ListBox1.Count-1 do
      begin
      FileToUpdate := StringReplace(ListBox1.Items.Strings[i], IntToStr(i)+'=', '', []);
      ServerFile := 'http://www.stolzemedien.de/apps/update/'+ProgramToUpdate+'/'+FileToUpdate;
      NewFile := ExtractFilePath(ParamStr(0))+FileToUpdate;
      Download(NewFile, ServerFile);
      end;

// das soll erledigt werden wenn alle dateien runtergeladen wurden

  Label1.Caption := 'Das Programm wurde erfolgreich aktualisiert.';
  Status.Caption := 'Fertig';
  SpeedStatus.Caption := '';
  Progress.Position := 100;
  Button2.Enabled := TRUE;
  Animate1.Active := FALSE;
  Timer2.Enabled := TRUE;

die erste datei wird einwandfrei runtergeladen. von der zweiten datei werden allerdings nur 28 KB runtergeladen (die datei hat aber ca. 1,6 mb) und springt dann direkt zu dem was erledigt werden soll wenn ALLE dateien runtergeladen wurden.