RAND_METHOD

type RAND_METHOD = record

  seed: procedure(

  const buf: Pointer;

  num: TIdC_INT

);

  bytes: function(

  const buf: PIdAnsiChar;

  num: TIdC_INT

):TIdC_INT;

  cleanup: procedure;

  add: procedure(

  const buf: Pointer;

  num: TIdC_INT;

  entropy: TIdC_DOUBLE

);

  pseudorand: function(

  buf: PIdAnsiChar;

  num: TIdC_INT

):TIdC_INT;

  status: function: TIdC_INT;

end;