DEC onProgress-Ereignis bei mehreren Threads

[Luckie]

So eine Konstruktion hilft auch nicht:

Delphi-Quellcode:

procedure BlowFishThread.Execute;
var
  Header: TFileHeader;
begin
  setlength(FIndexArray, length(FIndexArray)+1);
  FIndexArray[length(FIndexArray)-1] := FIndex;
  setlength(FPositionArray, length(FPositionArray)+1);
  EncryptBlowFish;

Delphi-Quellcode:

procedure BlowFishThread.Progress;
var
  i: Integer;
begin
  for i := 0 to length(FPositionArray)-1 do
  begin
     FPositionArray[i] := Trunc(100 / Maximal * Current);
  end;
  Synchronize(UpLV);
end;

Delphi-Quellcode:

procedure BlowFishThread.UPLV;
var
  i: Integer;
begin
  for i := 0 to length(FIndexArray)-1 do
  begin
    Form1.UpLV(FIndexArray[i], FPositionArray[i]);
    writeln(IntToStr(FIndexArray[i])+' / '+IntToStr(FPositionArray[i]));
    break;
  end;
end;

Ich habe jetzt mal das Projekt angehangen. Ob das sicher ist sei erst mal dahingestellt. benötigt wird das DEC von Hagen Reddmann.