Problem mit TChart, Function High

[Hallo_Thomas]

Hab gerad noch mah eh bissl gewerkelt und habs so gelöst

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
  MySeries: TLineseries;
begin
  for i:=0 to 1 do
  begin
    MySeries:= TLineseries.Create( Self );
    MySeries.ParentChart:= Chart1;
  end;
  for i:=0 to 10 do
    begin
      with Chart1.SeriesList[ 0+1 ] do
          AddXY( i, Random(100)); 
     end;
    Chart1.SeriesList[0].SetFunction(THighTeeFunction.Create(self));
    Chart1.SeriesList[0].DataSource:=Chart1.SeriesList[ 0+1 ];
end;