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