Cifrar texto con aes256 (funciones secrypt)

[Bluefox]

Buenos dias.
Necesito cifrar unos textos en aes256, para ello mire las funciones de secrypt de Seoane.
Lo primero que probe fue compilar los test.
El test 3, que es el que mas se asemeja a lo que busco, si lo compilo en debug me da "Integer overflow", si lo compilo en release, parece que funciona aunque me salta una excepcion, pero encrypta y desencripta.
Luego lo intento poner en el proyecto que lo necesito y siempre me da el error de integer overflow.
Compilado con delphi 11.1