var
  Count: Integer;
  Index: Integer;
begin
  Count := cxgrd1TableView1.Controller.SelectedRecordCount;
  With cxGridTableView1.DataController do begin
    BeginUpdate();
    try

      for Index := 0 to Count - 1 do
      begin
      RecordCount := RecordCount + 1;
      Values[RecordCount-1, cxGridColumn1.Index] := cxgrd1TableView1.Controller.SelectedRecords[index].Values[cxgrd1TableView1Column1.Index];
      Values[RecordCount-1, cxGridColumn2.Index] := cxgrd1TableView1.Controller.SelectedRecords[index].Values[cxgrd1TableView1Column2.Index];
      Values[RecordCount-1, cxGridColumn3.Index] := cxgrd1TableView1.Controller.SelectedRecords[index].Values[cxgrd1TableView1Column3.Index];
      end;
      //.. и т.д.
    finally
      EndUpdate();
    end;
  end;