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;