with ChartSpace1 do begin
    DisplayToolbar := true;
    ConnectionString := 'Provider=MSOLAP.2;Integrated Security=SSPI;Persist Security Info=True;Data Source=SERVERNAME;Initial Catalog=DATABASENAME;Client Cache Size=25;Auto Synch Period=10000';

    DataMember := 'CUBENAME';

    DisplayFieldList := true;
  end;

TChartSpace = class(TOleControl)
..........
public
.......
__Set_DataSource(Value: OleVariant);
........
end;

procedure TChartSpace.__Set_DataSource(Value: OleVariant);
begin
  Self.OleObject.DataSource := Value;  
end;

ChartSpace1.__Set_DataSource(PivotTable1.OleObject);

.......
 property SelectionType: WideString index - 10001  read GetMyWideStringProp;
 property DisplayOfficeLogo: WordBool index - 10002  read GetMyWordBoolProp write SetMyWordBoolProp stored False;
.....

function TPivotTable.GetMyWideStringProp(Index: integer): WideString;
var
  v: OleVariant;
begin
  v := Self.OleObject;
  case Index of
    - 10001 : Result := v.SelectionType;
  else
    Raise Exception.Create('Property with index ' + IntToStr(Index) + 'not found!!!');
  end;
end;

procedure TPivotTable.SetMyWideStringProp(Index: integer; Value: WideString);
var
  v: OleVariant;
begin
{
  v := Self.OleObject;
  case Index of
//    - 10001 : Result := v.SelectionType; только для чтения

  else
    Raise Exception.Create('Property with index ' + IntToStr(Index) + 'not found!!!');
  end;
  }
end;

function TPivotTable.GetMyWordBoolProp(Index: integer): WordBool;
var
  v: OleVariant;
begin
  v := Self.OleObject;
  case Index of
    - 10002 : Result := v.DisplayOfficeLogo;
  else
    Raise Exception.Create('Property with index ' + IntToStr(Index) + 'not found!!!');
  end;
end;

procedure TPivotTable.SetMyWordBoolProp(Index: integer; Value: WordBool);
var
  v: OleVariant;
begin
  v := Self.OleObject;
  case Index of
    - 10002 : v.DisplayOfficeLogo := Value;
  else
    Raise Exception.Create('Property with index ' + IntToStr(Index) + 'not found!!!');
  end;
end;