THookedKeyTranslationEvent

type THookedKeyTranslationEvent = procedure(

  Sender: TObject;

  Code: Word;

  SState: TShiftState;

  var Data: pointer;

  var IsStartOfCombo: Boolean;

  var Handled: Boolean;

  var Command: TSynEditorCommand;

  FinishComboOnly: Boolean;

  var ComboKeyStrokes: TSynEditKeyStrokes

) of object;