Source position: onguard.pas line 376
procedure InitDateCode(
const Key: TKey;
StartDate: TDateTime;
EndDate: TDateTime;
var Code: TCode;
InvalidCount: Word = 0
);