Dynamisches DBChart befüllen

[AnyKey]

Hi, danke für deine Antwort!

Also ich habs jetzt so:

Delphi-Quellcode:

    DBChart := TDBChart.Create(Self);
    Series1 := TPieSeries.Create(Self);
    with DBChart do
    begin
      Name := 'DBChart';
      Parent := Self;
      Align := alClient;
      AllowPanning := pmNone;
      AllowZoom := False;
      BackWall.Brush.Color := clWhite;
      BackWall.Brush.Style := bsClear;
      BackWall.Pen.Visible := False;
      Title.Text.Clear;
      Title.Text.Add('tblProjekt');
      AxisVisible := False;
      ClipPoints := False;
      Frame.Visible := False;
      View3DOptions.Elevation := 315;
      View3DOptions.Orthogonal := False;
      View3DOptions.Perspective := 0;
      View3DOptions.Rotation := 360;
      View3DWalls := False;
      TabOrder := 0;
    end;
    with Series1 do
    begin
      Name := 'Series1';
      Parent := Self;
      ParentChart := DBChart;
      Marks.ArrowLength := 8;
      Marks.Visible := True;
      SeriesColor := clRed;
      DataSource := UniTable;
      OtherSlice.Text := 'Andere';
      PieValues.DateTime := False;
      PieValues.Name := 'Torte';
      PieValues.Multiplier := 1.000000000000000000;
      PieValues.Order := loNone;
    end;
  end

Das erstellen funktioniert jetzt ohne Fehlermeldungen, allerdings bekomme ich kein Diagramm angezeigt... Was fehlt noch?