Download von mehreren Dateien nacheinander mit TIdHTTP

[Lenny-k]

Delphi-Quellcode:

procedure TForm2.BitBtn1Click(Sender: TObject);
var F:TStream;
begin
BitBtn1.Enabled:=false;
ListView2.Items[0].SubItems.Add('');
F:=TFileStream.Create('D:\projekte und programme\downloadserver\client\downloads\'+ListView2.Items[0].Caption,fmCreate);
IdHTTP2.Get('http://'+Form1.Edit1.Text+':412/load='+Label1.Caption+'/'+ListBox1.Items[0],F);
F.Free;
end;

procedure TForm2.IdHTTP2WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin
ListView2.Items.Delete(0);
ListBox1.Items.Delete(0);
Application.ProcessMessages;
BitBtn1.Click;
end;

wenn ich den button anklicke, wird die erste datei heruntergeladen, die 2. irgendwie auch, aber bei der 2. wird das IdHTTP2WorkEnd nicht ausgeführt!

Edit: Wenn ich BitBtn1.Click erst nach 2 Sekunden oder so ausführe, werden 2 Dateien downgeloadet, aber der 3. Download wird nicht gestartet :wall: echt sau nervig sowas :(

[Lenny-k]

hat keiner ne idee?=