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

TGetMouseSelMode = procedure (Sender: TObject; Shift: TShiftState; var SelMode: TSyntSelectionMode) of object;