Source position: synedit.pp line 170
type TProcessCommandEvent = procedure(
Sender: TObject;
var Command: TSynEditorCommand;
var AChar: TUTF8Char;
Data: pointer
) of object;