TSynCopyPasteEvent

type TSynCopyPasteEvent = procedure(

  Sender: TObject;

  var AText: string;

  var AMode: TSynSelectionMode;

  ALogStartPos: TPoint;

  var AnAction: TSynCopyPasteAction

) of object;