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

TGetStyleEntryEvent = procedure (Sender: TObject; CurPos: integer; StyleList: TStyleEntries; var NextPos: integer) of object;