var i: integer;
    ind: integer;
begin
    i := 0;
    while i < cxGridDBTableView.DataController.FilteredRecordCount do
      begin
        try
          ind := cxGridDBTableView.DataController.FilteredRecordIndex[i];