TTextIndexTokenFilterEvent = procedure (Sender: TObject; const TableName: String; const FieldName: String; const TextIndexToken: String; var Include: Boolean) of object