Step := 'SetProductData'; SetProductData('PASTE_CONTENT_OF_PRODUCT.DAT_FILE');
Step := 'SetProductId'; SetProductId('PASTE_PRODUCT_ID', lfUser);
Step := 'IsLicenseGenuine'; Status := IsLicenseGenuine;
lkOK: ShowMessage('License is genuinely activated!');
lkExpired: ShowMessage('License is genuinely activated, but has validity has expired!');
lkGracePeriodOver: ShowMessage('License is genuinely activated, but grace period is over!');
ShowMessage('Error code: ' + LAKeyStatusToString(Status));
ShowMessage('Exception from ' + Step + ': ' + E.ClassName + ': ' + E.Message);