InitDaysCode
procedure InitDaysCode (const Key : TKey; Days : Word; Expires : TDateTime; var Code : TCode);

InitDaysCode creates and initializes a days code using Key, Days, and Expires.

Days is stored as part of the Code.

The resulting code is valid for the number of days of use specified in the Days parameter and until the date stored in Expires is reached.

This routine is defined in the OnGuard unit. (as of 1.15 this routine has been moved to the OgUtil unit)