function LinToDB(Volume: integer; Base: integer = 32768): integer;begin if (Volume <= 0) then Result := -50 // to prevent overflow else Result := round(Log10(abs(Volume) / Max(Base, 1)) * 20);end;