[M.A.D.M.A.N.]

Код:

for i := 1 to Form1.StringGrid1.RowCount -1 do
begin
  A:=StrtoFloat(Form1.StringGrid1.Cells[3,i]);
  M:=StrtoFloat(Form1.StringGrid1.Cells[5,i]);
  P:=StrtoFloat(Form1.StringGrid1.Cells[7,i]);
  SUMM1:=A*M*P*((TGVS-TVZ)*K+H*(TGVS-TVL))*0.000001;
end;

Ну как-то так, если Cells[Столбец, Строка].