Source position: synedittypes.pp line 125
type TStatusChangeEvent = procedure(
Sender: TObject;
Changes: TSynStatusChanges
) of object;