mehrere Dateien mit Indy downloaden

[strange-t]

ich hab jetzt mal die variablen lokal gemacht.
bringt aber auch nix *gg*

hier sind mal noch die OnWork und OnWorkBegin prozeduren. vielleicht muss ja daran auch was geändert werden oder noch eine OnWorkEnd hinzugefügt werden...
hoffentlich weiss noch jemand was

Delphi-Quellcode:

procedure TForm1.IdHTTPWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  if not((GetTickCount - FTime) <= 0) then
  begin
    try
      SpeedStatus.caption := Format('%.2f KB/s', [(AWorkCount - FBytes) / (GetTickCount - FTime)]);
    except
    end;
  end;
  FTime := GetTickCount;
  FBytes := AWorkCount;
  Application.ProcessMessages;
end;

procedure TForm1.IdHTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  FTime := GetTickCount;
  FBytes := 0;
  Application.ProcessMessages;
end;

danke schonmal!!!