сумма столбцов

[fcdk_pavel]

на форме 2 StringGrid: в StringGrid1 я загружаю данные из Excel, потом по нажатию кнопки в StringGrid2 должны отобразиться суммы столбцов из StringGrid1
т.е сложить соответствующие данные в столбцах
(2:3+2:6+2:9) и вывести в StringGrid2
в ячейки 1:1 ...2:2 и тд. написал суммирование вручную для 1 столбца но это долго

vp1:=StrToInt(StringGrid1.Cells[2,6]); vp2:=StrToInt(StringGrid1.Cells[2,9]);vp3:=StrToInt(StringGrid1.Cells[2,12]); vp4:=StrToInt(StringGrid1.Cells[2,15]);vp5:=StrToInt(StringGrid1.Cells[2,18]);
vp6:=StrToInt(StringGrid1.Cells[2,18]);vp7:=StrToInt(StringGrid1.Cells[2,21]);vp8:=StrToInt(StringGrid1.Cells[2,24]);vp9:=StrToInt(StringGrid1.Cells[2,27]);vp10:=StrToInt(StringGrid1.Cells[2,30]);vp11:=StrToInt(StringGrid1.Cells[2,33]);
vp12:=StrToInt(StringGrid1.Cells[2,36]);vp13:=StrToInt(StringGrid1.Cells[2,29]);vp14:=StrToInt(StringGrid1.Cells[2,42]);vp15:=StrToInt(StringGrid1.Cells[2,45]);vp16:=StrToInt(StringGrid1.Cells[2,48]);
vp17:=StrToInt(StringGrid1.Cells[2,51]);vp18:=StrToInt(StringGrid1.Cells[2,54]);vp19:=StrToInt(StringGrid1.Cells[2,57]);vp20:=StrToInt(StringGrid1.Cells[2,60]);vp21:=StrToInt(StringGrid1.Cells[2,63]);
vp22:=StrToInt(StringGrid1.Cells[2,66]);vp23:=StrToInt(StringGrid1.Cells[2,69]);vp24:=StrToInt(StringGrid1.Cells[2,72]);vp25:=StrToInt(StringGrid1.Cells[2,75]);vp26:=StrToInt(StringGrid1.Cells[2,78]);
vp27:=StrToInt(StringGrid1.Cells[2,81]);vp28:=StrToInt(StringGrid1.Cells[2,84]);vp29:=StrToInt(StringGrid1.Cells[2,87]);vp30:=StrToInt(StringGrid1.Cells[2,90]);vp31:=StrToInt(StringGrid1.Cells[2,91]);
if (Form5.ComboBox1.Text='Февраль') then St1:=vp1+vp2+vp3+vp4+vp5+vp6+vp7+vp8+vp9+vp10+vp11+vp12+vp13+vp14+vp15+vp16+vp17+vp18+vp19+vp20+vp21+vp22+vp23+vp24+vp25+vp26+vp27+vp28+0+0+0;
if (Form5.ComboBox1.Text='Февраль(29 дней)') then St1:=vp1+vp2+vp3+vp4+vp5+vp6+vp7+vp8+vp9+vp10+vp11+vp12+vp13+vp14+vp15+vp16+vp17+vp18+vp19+vp20+vp21+vp22+vp23+vp24+vp25+vp26+vp27+vp28+vp29+0+0 else
St1:=vp1+vp2+vp3+vp4+vp5+vp6+vp7+vp8+vp9+vp10+vp11+vp12+vp13+vp14+vp15+vp16+vp17+vp18+vp19+vp20+vp21+vp22+vp23+vp24+vp25+vp26+vp27+vp28+vp29+vp30+vp31;
StringGrid2.Cells[1,1]:=IntToStr(St1);

(для сохранения места писал в строчку)
вот загружаемая из excel таблица
Подскажите пожалуйста как сделать циклом?!

[Stilet]

в StringGrid2 должны отобразиться суммы столбцов из StringGrid1
т.е сложить соответствующие данные в столбцах
(2:3+2:6+2:9) и вывести в StringGrid2

for j:=2 to сколько-то do begi
i:=3;sum:=0; while i<=9 do begin
 sum:=sum+StrToFloatDef(StringGrid1.cells[j,i],0);
 inc(i,3);
end;
StringGrid1.cells[j,0]:=FloatToStr(sum);
end;