procedure TForm1.Table1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
        Accept := DataSet.FieldByName('PUR_DATE').AsDateTime = StrToDate('1987/9/13');
end;