Ошибка при шифровании данных

procedure TForm2.btnEncryptClick(Sender: TObject);
var
 
  SourceStream, DestStream: TFileStream;
  i:integer;
spisok:tstringlist;
begin
spisok:=Tstringlist.Create;
spisok.LoadFromFile('res.txt');
for i := 0 to spisok.Count -1 do
EncryptFile(spisok.strings[i], ExtractFilePath(ParamStr(0)) + 'encrypted' + ExtractFileExt(spisok.strings[i]), 'пароль') // шифрование
 
end;

function TForm2.EncryptFile(Source, Dest, Password: string): Boolean;
var
  SourceStream, DestStream: TFileStream;
begin
  Result := True;
  try
    SourceStream := TFileStream.Create(Source, fmOpenRead); // поток для файла, который будем шифровать
    try
      DestStream := TFileStream.Create(Dest, fmCreate); // поток файла для зашифрованых данных
      try
        DCP_rijndael1.InitStr(Password, TDCP_sha1); // инициализируем ключ (считаем SHA1 для ключа)
        DCP_rijndael1.EncryptStream(SourceStream, DestStream, SourceStream.Size); // шифруем
        DCP_rijndael1.Burn; // "сжигаем" данные о ключе
      finally
        FreeAndNil(DestStream);
      end;
    finally
      FreeAndNil(SourceStream)
    end;
  except
    Result := False;
  end;
end;

DCP_rijndael1.InitStr(Password, TDCP_sha1); // инициализируем ключ (считаем SHA1 для ключа)

DCP_rijndael1 := TDCP_rijndael.create(...

DCP_rijndael1 := TDCP_rijndael.Create(Self);
        DCP_rijndael1.InitStr(Password, TDCP_sha1); // инициализируем ключ (считаем SHA1 для ключа)
        DCP_rijndael1.EncryptStream(SourceStream, DestStream, SourceStream.Size); // шифруем
        DCP_rijndael1.Burn; // "сжигаем" данные о ключе
        DCP_rijndael1.Free;