Range Check Error when trying to generate keys with GenerateKeys #39

I drop the components TCodec, TCryptographicLibrary and TSignature on the form.
I link the Codec1 to the CryprographicLibrary1, set the Cipher to "RSA public key encryption system *"
I link the Signatory1 to the Codec1.

I call in code Signatory1. GenerateKeys and get a Range Check Error.