TTextIndexFilterEvent = procedure (Sender: TObject; const TableName: String; const FieldName: String; var TextToIndex: String) of object