Source position: onguard.pas line 392
procedure InitSerialNumberCode(
const Key: TKey;
Serial: LongInt;
Expires: TDateTime;
var Code: TCode
);