Source position: onguard.pas line 381
procedure InitDaysCode(
const Key: TKey;
Days: Word;
Expires: TDateTime;
var Code: TCode;
InvalidCount: Word = 0
);