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