function HasDMSLicense: boolean;
if DMS_Settings.HasDMSLicense then begin Message_dlg('DMS Lizenz und System vorhanden'); end else begin Message_dlg('keine DMS Lizenz oder DMS System deaktiviert'); end;