Unit Secretf

Classes

TSecretFrm - ****************************************************************************} {Displays the form to get user input to seed the random number generator.

Functions

GetSecret -

Types

Constants

MAXKEYPRESS

Variables

SecretFrm


Functions


procedure GetSecret(Handle: THandle; var Secret: String);


Types


Constants

MAXKEYPRESS = 8


Variables

SecretFrm : TSecretFrm