DEC onProgress-Ereignis bei mehreren Threads

[Luckie]

So ganz bin ich noch nicht dahintergestiegen. Es sieht jetzt so aus:

Delphi-Quellcode:

for i := 0 to lvFiles.Items.Count - 1 do
  begin
    Filename := lvFiles.Items.Item[i].Caption;
    if lvFiles.Items.Item[i].SubItems[0] = 'unverschlüsselt' then
    begin
      try
        ProgressAdapter := TStreamProgressAdapter.Create(TFileStream.Create(FileName, fmOpenReadWrite));
        try
          Encrypt(FileName, edtPW1.Text, TCipher_Rijndael);
          lvFiles.Items.Item[i].SubItems[0] := FloatToStr(ProgressAdapter.Progress);
        finally
          FreeAndNil(ProgressAdapter);
        end;
      finally
        FreeAndNil(FileStream);
      end;
    end;
  end;

Ich bekomme allerdings bei Encrypt eine Zugriffsverletzung.