const
 dfTrouble         = 1;       { DebugFlags - Trouble             }
 dfSuccess         = 2;       { DebugFlags - Success             }
 dfViewExp         = 4;       { DebugFlags - ViewExp             }
 dfViewImp         = 8;       { DebugFlags - ViewImp             }
 dfDetails         = 16;      { DefugFlags - Details             }
 g_Lock            = 0;       { Access level - Lock              }
 g_Guest           = 1;       { Access level - Guest             }
 g_User            = 2;       { Access level - User              }
 g_Root            = 3;       { Access level - Root              }
 g_List            = 'Lock,Guest,User,Root'; { Guard levels      }
 snd_Click         = 'Click'; { Sound on button click            }
 snd_Fails         = 'Fails'; { Sound on operation failure       }
 snd_Deny          = 'Deny';  { Sound on access denied           }
 snd_WinShow       = 'WinWheel';    { Sound on open window       }
 rs_NotAvail       = 0;       { RS-485 is not available          }
 rs_NoRequest      = 1;       { Ready to send next Adam_Request  }
 rs_WaitQueue      = 2;       { Wait order to send to RS-485     }
 rs_WaitAnswer     = 3;       { Request sent, waiting for answer }
 rs_Answer         = 4;       { Have got answer from RS-485      }
 rs_TimeOut        = 5;       { TimeOut detected, request failed }
 acc_Deny          = 0;       { Access denied                    }
 acc_Guest         = 1;       { Grant access level "guest"       }
 acc_User          = 2;       { Grant access level "user"        }
 acc_Root          = 3;       { Grant access level "root"        }
 acc_List          = 'Guest,User,Root';
 acc_webList       = 'web-guest,web-user,web-root';
 DimSrv            = '&DimSrv'; { DIM server device name         }
 WebSrv            = '&WebSrv'; { WEB server device name         }
 EmlSrv            = '&EmlSrv'; { EMail server device name       }
 OpcCln            = '&OpcCln'; { OPC client device name         }
 PlotSrv           = '&PlotSrv'; { PLOT server device name       }
 VkbdSrv           = '&VkbdSrv'; { VKBD server device name       }
 SpeakSrv          = '&SpeakSrv'; { Speak server device name     }
