TSecureRandom

type TSecureRandom = class(TRandom,ISecureRandom)

strict protected

  Fgenerator: IRandomGenerator;

public

  constructor Create();

  function GenerateSeed(); virtual;

  procedure SetSeed();

  procedure NextBytes();

  function NextInt32; virtual;

  function NextInt64; virtual;

  function NextDouble; override;

  function Next();

  class function GetNextBytes();

  class function GetInstance();

  class procedure Boot;

end;

TSecureRandom

TRandom,ISecureRandom

TObject,IRandom