THookedCommandEvent

type THookedCommandEvent = procedure(

  Sender: TObject;

  AfterProcessing: Boolean;

  var Handled: Boolean;

  var Command: TSynEditorCommand;

  var AChar: TUtf8Char;

  Data: pointer;

  HandlerData: pointer

) of object;