Source position: ELDsgxTypes.pas line 214
type TplChangeColorEvent = procedure(
Sender: TObject;
Foreground: TColor;
Background: TColor
) of object;