Stringgrid Spalten einzeln summiere

[akazukilp]

Also ich hab mal ein bissel rumprobiert aber irgendwie kom ich mit f5 f8 und f7 nicht weiter. da er gar nicht in den code reingeht. was mach ich falsch?

Code:

var
i, ilZeile : integer;
Summe : double;
begin
 Summe := 0;
 ilZeile := Stringgrid1.RowCount;
 for i:= StringGrid1.Selection.Top to StringGrid1.Selection.Bottom do
 begin
  Summe := Summe+ StrtoFloatdef(Stringgrid1.Cells[1,i],0);
 end;
  Form1.StringGrid1.RowCount := Form1.StringGrid1.RowCount + 1;
  Stringgrid1.Cells[1, ilZeile] := FloattoStr(Summe);