[Drozh]

Ты во втором цикле искользуешь переменную i которая после цикла не имеет значения или оно больше 25 (сам не знаю =) ). Делай так:

Код:

var
 i, j: Integer;
....
 for i := 1 to 25 do
 begin
  SG3.Cells[0, i] := FloatToStr(StrToFloat(SG2.Cells[0, i])+
                                StrToFloat(SG2.Cells[1, i])+
                                StrToFloat(SG2.Cells[2, i])+
                                StrToFloat(SG2.Cells[3, i]));
  SG3.Cells[1, i] :=
   FloatToStr(2*StrToFloat(SG2.Cells[0, i])/StrToFloat(SG3.Cells[0, i])+
              3*StrToFloat(SG2.Cells[1, i])/StrToFloat(SG3.Cells[0, i])+
              4*StrToFloat(SG2.Cells[2, i])/StrToFloat(SG3.Cells[0, i])+
              5*StrToFloat(SG2.Cells[3, i])/StrToFloat(SG3.Cells[0, i]));
 end;