for I:=0 to cxGrid1DBTableView2.DataController.FilteredRecordCount - 1 do begin
            dxMemData_con.Edit;
            cxGrid1DBTableView2.DataController.Values[cxGrid1DBTableView2.DataController.FilteredRecordIndex[i],cxGrid1DBTableView2check.Index]:=1;

   if cxGrid1DBTableView2.DataController.FilteredRecordCount>0 then begin
      dxMemData_con.DisableControls;
      for I:=0 to cxGrid1DBTableView2.DataController.FilteredRecordCount - 1 do begin
           q:= cxGrid1DBTableView2.DataController.Values[cxGrid1DBTableView2.DataController.FilteredRecordIndex[i],cxGrid1DBTableView2zad.Index];
               dxMemData_con.First;
                For w := dxMemData_con.RecordCount-1 DownTo 0 Do begin
                    if dxMemData_conzad.Value=q then begin
                       dxMemData_con.Edit;
                       dxMemData_con.FieldByName('check').AsInteger := 1;
                    end;
                       dxMemData_con.Next;
               end;
      end;
      dxMemData_con.EnableControls;
   end;