Problem mit der Series gelöst!
Statt Series := TLineSeries.Create(Chart);
Kommt Series := TLineSeries.Create(nil);
Da finde ich die series übers Chart!
Beim Button funktioniert:
Statt Button.Free;
Kommt RemoveComponent(Button);
Wenn Button := TButton.Create(Self) ist.
Das selbe bei der Series funktionert aber nicht, nur wenn TLineSeries.Create(nil) dann funktioniert das Free.
Code:
Series := FindSeries('S1', idx);
if Series <> nil then
begin
Chart.SeriesList.Delete(idx);
RemoveComponent(Series); //oder Series.Free;
end;
Series := TLineSeries.Create(nil); // funktioniert nicht TLineSeries.Create(Chart);
Series.Name := 'S1';
Series.XValues.DateTime := True;
Chart.AddSeries(Series);