[lmikle]

Код:

var
  I : Integer;
  AChart : TChart;
begin
  For I := 0 To MyDataList.Count-1 Do
    Begin
      AChart := TChart.Create(Self);
      AChart.Parent := Self;
      AChart.Top := ...
      AChart.Left := ...
      ...
    End;

А вообще-то Chart нужен один, а вот серий с данными в нем можно сделать много...