DBChart := TDBChart.Create(Self);
    Series1 := TPieSeries.Create(Self);
    with DBChart do
  begin
    Name := 'DBChart';
    Parent := Self;
    Left := 16;
    Top := 8;
    Width := 400;
    Height := 250;
    AllowPanning := pmNone;
    AllowZoom := False;
    BackWall.Brush.Color := clWhite;
    BackWall.Brush.Style := bsClear;
    BackWall.Pen.Visible := False;
    Title.Text.Clear;
    Title.Text.Add('TDBChart');
    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;
    Marks.ArrowLength := 8;
    Marks.Visible := True;
    DataSource := UniTable;
    SeriesColor := clRed;
    OtherSlice.Text := 'Andere';
    PieValues.DateTime := False;
    PieValues.Name := 'Torte';
    PieValues.Multiplier := 1.000000000000000000;
    PieValues.Order := loNone;
  end;