stringgrid zusammrechnen und färben

[horst]

hallo....
ich möchte zu dem code unten zwei funktion hinzufügen.

stringgrid2.Cells[8, y] := FloatToStr(sum); in zelle 8 werden die einzelnen zellen einer zeile zusammengerechnet.
die wiederum zu zelle 9 hinzugerechnet werden sollen, (in zelle 9 steht -12)
wenn dann die 0 in zelle 9 erreicht ist soll die zelle rot werden.

das hinzuzählen habe ich so versucht, was aber nicht klappt.
ganz zu schweigen vom färben der zelle, wer mag mir helfen ?

Delphi-Quellcode:

      // ***** 
      s:= FloatToStr(StringGrid2.Cells[9, y]);
       j:= FloatToStr (StringGrid2.Cells[8, y]);
      x := s+j;
      stringgrid2.Cells[9, y] :=FloatToStr(x);

Delphi-Quellcode:

procedure TForm1.Button8Click(Sender: TObject);
var
 s ,j, nr, x,sum: double;
     i, y:integer;
begin
  for y := 1 to 52 do //52 wegen der Anzahl der Wochen im Jahr
  begin
    sum := 0;
    for i := 1 to 7 do //Tage in der Woche
    begin
      if STringGrid2.Cells[i, y] <> '' then     
      begin
        nr := StrToFloat(StringGrid2.Cells[i, y]);
        Inc(sum, nr);
      end;
      stringgrid2.Cells[8, y] := FloatToStr(sum);
// ***** hier hatte ich den code eingefügt
   end;
  end;
end;