Source position: onguard.pas line 397
procedure InitSpecialCode(
const Key: TKey;
Value: LongInt;
Expires: TDateTime;
var Code: TCode
);