UnlockSupport (Mixed Raster Content Control) example for Delphi

   LEADMrc1.UnlockSupport (L_SUPPORT_OCR, 'TestKey');
   If LEADMrc1.IsSupportLocked (L_SUPPORT_OCR) Then
      ShowMessage ( 'UnlockSupport did not work with given key' ) ;