Ну се. Сам сам все нашел!
Вообщем, если такая ошибка у кого произошла, то вот её решение:
Дело все в том, что в алгоритме не хватает пула. Для её увеличения можно использовать функцию:
PGPGlobalRandomPoolAddSystemState();
эта функция находится в pgpRandomPool.h. В ней же можно найти и другие функции для увеличения пула.
Вот еще ссылка:
http://www.koders.com/delphi/fid40D81CB38B196EA696D97177E0E6485E785BEA43.aspx
Пользуйтесь на здоровье!