['Zanuda']

Действительно, наоборот. Чуть подправил:

Код:

//Вычисление расходов топлива S
procedure TForm1.Button3Click(Sender: TObject);
var
  S:array of array of double;
  V:array of array of double;
  H:array of array of double;
  i,j,k,c:integer;
  begin
  SetLength(V,StringGrid1.ColCount,StringGrid1.RowCount);
  SetLength(H,StringGrid1.ColCount,StringGrid1.RowCount);
  SetLength(S,StringGrid1.ColCount,StringGrid1.RowCount);
 
      For j:= 0 to StringGrid1.ColCount-1 do    //столбец
      For i:= 0 to StringGrid1.RowCount-1 do    //строка
      begin
      if ((i mod 2 = 0) and (j mod 2 = 1)) then
      begin
         H[i,j]:=strtofloat(StringGrid1.Cells[j,i]); //Заполнение массива H[i,j]
      end;
      if ((i mod 2 = 1) and (j mod 2 = 0)) then
      begin
        V[i,j]:=strtofloat(StringGrid1.Cells[j,i]);  //Заполнение массива V[i,j]
      end;
    end;
 
  //Заполнение  первой строки массива S с конца
  c:=StringGrid1.ColCount-1; //кол-во столбцов
  S[1,c-2]:=V[1,c-1];
  StringGrid1.Cells[c-2,1]:=floattostr(S[1,c-2]);
  c:=c-2;
  while (c>1) do
      begin
        c:=c-2;
        S[1,c]:=S[1,c+2]+V[1,c+1];
        StringGrid1.Cells[c,1]:=floattostr(S[1,c]);
      end;
end;

Но теперь выскакивают ошибки list index out of bounds и Invalid pointer рoperation. Но первая строка заполняется, хотя и весьма странно(в 2 соседние ячейки заносятся одинаковое значение)...

И еще одна странность, если вводить большое столбцов, то при прокручивании в ячейках цифры как бы накладываются друг на друга...