IsSupportLocked Example for Delphi

var
   bLocked: Boolean;
begin
   bLocked := LEADDicom1.IsSupportLocked(L_SUPPORT_MEDICAL);
   If bLocked Then
      ShowMessage('Medical Support is Locked!')
   else
      ShowMessage('Medical Support is available');
End;