TChart, TLineSeries erzeugen

[Thanatos81]

Hi DP!

Folgender Code spuckt bei mir ne "Ungültige Zeigeroperation" aus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var temp : TLineSeries;
begin
  Chart1.SeriesList.Clear;
  temp := TLineSeries.Create(Chart1);
  while not(zqDaten.EoF) do
    begin
      temp.AddXY(zqDaten.Fields.Fields[0].asFloat,zqDaten.Fields.Fields[1].asFloat);
      zqDaten.Next;
    end;
  Chart1.AddSeries(temp);
  zqDaten.First;
  zqDaten.EnableControls;
end;

Allerdings nicht beim temp := TLineSeries.Create(Chart1) oder beim Chart1.AddSeries(temp) wie ich vermutet hatte, sondern erst nach Beendigung der Prozedur

Jemand eine Idee?

Schönen Gruß,