Source position: graphics.pp line 365
const clActiveBrightText = TColor ( clBrightText - cloActive );