Wieso bekomme ich hier einen Deadlock?

[Zacherl]

Okay die Exception vom Counter wird nie geworfen. Die ThreadList selbst scheint nicht das Problem zu sein. Der Code in meinem Progress Event war vorher so:

Delphi-Quellcode:

  Item := TListItem(Transfer.Data);
  TAsyncCalls.VCLSync(procedure
  begin
    Item := TListItem(Transfer.Data);
    Item.SubItems[1] := IntToStr(Round(Transfer.CurrentDataSize /
      Transfer.TotalDataSize * 100));
    Item.SubItems[2] := IntToStr(Round(100 - (Transfer.CompressedDataSize /
      Transfer.CurrentDataSize * 100)));
  end);

Das Problem war scheinbar, dass die Anzeige einfach zu schnell aktualisiert wurde (jede 8KiB). Hab dann jetzt zufällig den Code geändert, damit das ListView nicht mehr flackert und jetzt ist auch mein Deadlock weg Hier ist der neue Code:

Delphi-Quellcode:

Progress := Round(Transfer.CurrentDataSize / Transfer.TotalDataSize * 100);
  Item := TListItem(Transfer.Data);
  if (Integer(Item.Data) < Progress) then
  begin
    Item.Data := Pointer(Progress);
    TAsyncCalls.VCLSync(procedure
    begin
      Item := TListItem(Transfer.Data);
      Item.SubItems[1] := IntToStr(Round(Transfer.CurrentDataSize /
        Transfer.TotalDataSize * 100));
      Item.SubItems[2] := IntToStr(Round(100 - (Transfer.CompressedDataSize /
        Transfer.CurrentDataSize * 100)));
    end);
  end;

Vom verstehen dieses Problems bin ich zwar noch meilenweit entfernt, aber wenigstens funktioniert nun alles auch ohne meine eher quick'n'dirty Lösung. Danke euch allen