[yurayura]

разобрался методом тыка

можно делать как то так
for i:=0 to N-1 do
begin
Chart1.SeriesList.AddGroup(name[i]);

while ( ...)
begin
...

Chart1.AddSeries(TAreaSeries);
k:=Chart1.SeriesCount-1;
Chart1.SeriesList.Groups.Items[i].Add(chart1.Series[k]);
...

end;

end;