chart mit button-Funktion

[Hartfrid Krause]

Es klappt noch nicht.
Ich rufe auf:

Delphi-Quellcode:

USES
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.Grids, Vcl.StdCtrls,
  VclTee.TeeGDIPlus, VCLTee.TeEngine, VCLTee.Series, VCLTee.TeeProcs,
  VCLTee.Chart,w02_definitionen, Vcl.Buttons, VCLTee.TeeTools;


type:chart2:tchart;
und als procedure 

procedure tform31.Parteinamenchartfuellen(sender:TObject);
var i:integer;
begin
   Chart2.AddSeries(THorizBarSeries.Create(Self));
   Chart2.Legend.Visible := false;
   Chart2.View3D := false;
   Chart2.Title.Visible := false;
   (Chart2.Series[0] as THorizBarSeries).MarksOnBar:=True;
   (Chart2.Series[0] as THorizBarSeries).ColorEachPoint:=True;
   (Chart2.Series[0] as THorizBarSeries).BarWidthPercent := 60;
   (Chart2.Series[0] as THorizBarSeries).Marks.Transparent:=false;
   (Chart2.Series[0] as THorizBarSeries).SideMargins := false;
   (Chart2.Series[0] as THorizBarSeries).MarksLocation:= mlCenter;
   for i:=1 to 11 do chart2.series[0].AddXY(4,i,partei[12-i],farbe[12-i]);
end;

Farben, Felder und werte stiimen.

Ich stehe ein wenig weiter auf dem Schlauich, da ic h ja keine serie1 aufrufe. Wenn ich chart2 lösche und eine neue mit horizbatseries definiere, klappt es auch nicht???
grüße an Hamburg
hartfrid