GetLogLevel()

function GetLogLevelDesc()
  case GetLogLevel()
    of llALL     :: Result := 'ALL',
    of llTRACE   :: Result := 'TRACE',
    of llDEBUG   :: Result := 'DEBUG',
    of llINFO    :: Result := 'INFO',
    of llWARNING :: Result := 'WARNING',
    of llERROR   :: Result := 'ERROR',
    of llFATAL   :: Result := 'FATAL',
    of llOFF     :: Result := 'OFF',
  endcase,
end,

Meld('Log-Level steht auf ' + GetLogLevelDesc()),