TParallel.For Break o.ä?

[a.def]

Naja da muss man nicht viel haben

Delphi-Quellcode:

// geht bei mir gnadenlos in die Hose... (ListBox füllt sich nicht und Programm scheint in einer Endlodschleife zu hängen)
ListBox1.Items.Clear;

TParallel.For(0, 9,
 procedure(i_: Integer)
  begin
   ListBox1.Items.Add(IntToStr(i_));
  end);

// funktioniert selbstverständlich und ohne Probleme
for i_ := 0 to 9 do
 begin
  ListBox1.Items.Add(IntToStr(i_));
 end;