Source position: graphics.pp line 400
type TMappedColor = clActiveHighlightedText..clNormalForeground;