Ну се. Сам сам все нашел!
Вообщем, если такая ошибка у кого произошла, то вот её решение:

Дело все в том, что в алгоритме не хватает пула. Для её увеличения можно использовать функцию:

PGPGlobalRandomPoolAddSystemState();

эта функция находится в pgpRandomPool.h. В ней же можно найти и другие функции для увеличения пула.

Вот еще ссылка:
http://www.koders.com/delphi/fid40D81CB38B196EA696D97177E0E6485E785BEA43.aspx

---

Пользуйтесь на здоровье!