procedure TfmMatrix.MatrixPivotDblClick(Sender: TObject);
 procedure CreateColumns1(APivotGrid: TcxCustomPivotGrid; AGridView: TcxGridTableView);
  var
    I: Integer;
    AField: TcxPivotGridField;
  begin
    for I := 0 to APivotGrid.FieldCount - 1 do
    begin
      AField := APivotGrid.Fields[I];
      if APivotGrid.Fields[I].Area in [faColumn, faRow, faData] then
      with AGridView.CreateColumn do
      begin
        Caption := AField.Caption;
        Visible := AField.Visible;
        Hidden := AField.Hidden;
      end;
    end;
  end;
  var
  ACrossCell: TcxPivotGridCrossCell;
  ADataSource: TcxCustomDataSource;
begin
  with MatrixPivot.HitTest do
  begin
  Application.CreateForm(TfmEditArticle, fmEditArticle);
    if HitAtDataCell then
    begin
       ACrossCell := (HitObject as TcxPivotGridDataCellViewInfo).CrossCell;
 
      try
        CreateColumns1(ACrossCell.PivotGrid, fmEditArticle.cxGrid1DBTableView1);
        ADataSource := ACrossCell.CreateDrillDownDataSource;
 
        try

          fmEditArticle.cxGrid1DBTableView1.DataController.CustomDataSource := ADataSource;
          fmEditArticle.ShowModal;
        finally
          ADataSource.Free;

        end;
      finally
        fmEditArticle.release;
      end;
    end;
  end;

end;