This procedural type is used by the TCustomSyntaxMemo.OnBeforeInsert event.

TBeforeInsertEvent = procedure (Sender: TObject; var Pos: integer; var S: ecString; var Accept: Boolean) of object;