Stringgrid Plus Minus Vergleich

[fl63]

Hallo

Ich habe folgendes Problem:

Delphi-Quellcode:

procedure TForm1.PlusMinus(Sender: TObject);
var
i :integer; k,l:Real;
begin

 JvSG1.Cells[9,1] := '00';
     begin
     For i:= 1 to JvSG1.RowCount-1 do  //Plus Minus in die Spalte Einfügen
       begin
        k:= StrToFloat(JvSG1.Cells[2,i]); l:= StrToFloat(JvSG1.Cells[2,i+1]);
       If k > l then JvSG1.Cells[9,i+1] := '-1';
       If k < l then JvSG1.Cells[9,i+1] := '+1';
       If k = l then JvSG1.Cells[9,i+1] := '0';
       end;
     end;                                  // Plus Minus Einfügen beendet
  BerechneSummenspaltePlusMinus(Sender);
end;

procedure TForm1.BerechneSummenspaltePlusMinus(Sender:TObject);
var i,Summe :integer;

begin
Summe := 100; JvSG1.Cells[10,1] := '100'; //Startwerte
 Label1.Caption:=JvSG1.Cells[10,1];
   For i:= 1 to JvSG1.RowCount-1 do
      begin
      Summe := Summe + StrToInt(JvSG1.Cells[9,i]);
      JvSG1.Cells[10,i] := IntToStr(Summe);
      end;
end;

procedure PlusMinus ist fehlerfrei
erzeugt aus Vergleichswerten +1, 0 oder -1 in einer Spalte

procedure Berechne SummeSpalte... ist fehlerbehaftet
sämtliche Werte der PlusMinus Spalte sollen zu einem Startwert addiert werden und die Ergebnisse in einem Chart angezeigt werden.

Problem: keinerlei Anzeige in Spalte 10

Bitte um Hilfe