Hallo,
da sind gleich mehrere Sachen so nicht richtig bzw. gefährlich!
Du solltest die vorhandenen Series im Chart erstmal alle löschen, also vor deiner Schleife.
Danach erzeugst du die Series jeweils neu. Du musst angeben was für eine Series du willst.
Hier also z.B. eine TPieSeries, bei dir wohl eher eine TBarSeries.
Delphi-Quellcode:
ASeries:=TPieSeries.Create(AChart);
ASeries.Marks.Visible:=false;
ASeries.Shadow.Visible:=false;
ASeries.ColorEachPoint:=true;
AChart.AddSeries(ASeries);
Dann stellst du die entsprechenden Propertys der Series ein und übergibst Sie dem entsprechenden Chart.
Danach kannst du der Series die entsprechenden Werte mitteilen.
ASeries.Add (Value,clTeeColor); // usw.
Tipp: Ändere das auslesen der Daten aus dem Stringgrid! Am besten du speicherst die Daten in einem separaten Container (Listen usw.) und arbeitest dann mit diesen.
Das StrToFloat ist hier sehr gefährlich! Schon mal versuchte eine Zahl mit oder nur Buchstaben einzugeben? Das knallt definitiv. Alternativ (aber es gibt bessere Möglichkeiten) schau mal nach StrToFloatDef oder TryStrToFloat.
cu cg