var DisplayExpiredOnly: boolean = false; procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean); begin Accept : DisplayExpiredOnly <gras>and (Table1DateExpired.AsDateTime</gras> Date); end ; procedure TForm1.CheckBox1Click(Sender: TObject); begin DisplayExpiredOnly : = CheckBox1.Checked; Table1.Filtered := CheckBox1.Checked; end ;