Source position: onguard.pas line 402
procedure InitUsageCode(
const Key: TKey;
Count: Word;
Expires: TDateTime;
var Code: TCode;
InvalidCount: Word = 0
);