var
  RecordIndex: integer;
  i,x,y: integer;
  Selection: TRect;
  CellVal: string;
begin
  CellVal := '';
  for i := 0 to dbpMain.ViewData.Selection.Count - 1 do
  begin
    Selection := dbpMain.ViewData.Selection.Regions[i];
    for x := Selection.Left to Selection.Right do
    begin
      for y := Selection.Top to Selection.Bottom do
      begin
        RecordIndex := dbpMain.ViewData.Cells[y , x].Owner.Row.RecordIndex;

        CellVal :=   CellVal + VarToStr(dbpMain.ViewData.Cells[y, x].Owner.Row.DataController.Values[RecordIndex, dbpMainArticleOID.Index]) +  #1013;
      end;
    end;
  end;

  ShowMessage(CellVal);