Source position: graphics.pp line 1873
type TGetColorStringProc = procedure(
const s: AnsiString
) of object;