TChart à partir d'un stringgrid

Bonjour,
Je dois créer un graphe de points.
J'utilise le code suivant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
for c := 1 to loggrid.ColCount-1 do
          begin
              for p := 0 to NProbe-1  do
              begin
                    if (Typ[p]='Congels') then
                    if NameProbe[p]=LogGrid.Cells[c,0]  then
                    begin
                    if c_congels<loggrid.ColCount-1 then
                          begin
                              c_congels:=c_congels+1;
                              Congels_series:=TPointSeries.Create(Self); //Crée la série
                              Congels_series.ParentChart:=Chart_congels; //Associe la série au graphe
                              Congels_series.Title:=LogGrid.Cells[c,0]; //Modifie le titre de la série
                                for l:=1 to LogGrid.RowCount-1 do
                                    begin
                                    if (LogGrid.Cells[0,l]<>'')AND(LogGrid.Cells[p+1,l]<>'') then
                                    Chart_congels.Series[c_congels-1].AddXY(StrToDateTime(LogGrid.Cells[0,l]),StrtoFloat(LogGrid.Cells[p+1,l]));
                                    end;
                                Chart_congels.Series[c_congels-1].active:=True;
                                Chart_congels.Series[c_congels-1].repaint;
                          end;
                    end;
                end;
            end;

le programme va chercher les données dans un stringgrid dans les colonnes 0 pour les dates et pour chaque série dans les colonnes suivantes.
Quand je n'ai que 3 colonnes, donc deux séries à générer, j'obtient bien les labels des séries dans la légende mais l'affichage ne montre que une série.
Quand j'ai 2 colonnes, rien n'est affiché mais quand j'ai 4 colonnes j'ai bien mes 3 séries???
Je n'y comprends plus rien :calim2:
Qui peut m'aider??? :help:

Merci d'avance pour vos idées :merci:
Phil