UnlockSupport example for Delphi

{Unlock Document support.} 
   {Note that this is a sample key, which will not work in your toolkit.} 
   LEADTwain1.UnlockSupport ( L_SUPPORT_DOCUMENT, 'TestKey' ); 
 if ( LEADTwain1.IsSupportLocked (L_SUPPORT_DOCUMENT) ) then
      ShowMessage('Document Support Locked') 
   else
      ShowMessage('Document Support is available');