TOnFilterSelected type TOnFilterSelected = procedure (Sender: TObject; FilterName: string; Type of the OnFilterSelected event