Среднее арифметическое строк нескольких столбцов

  Query1.DatabaseName:= Table1.DatabaseName; //имя БД меняется, поэтому так
  Table1.Edit;
  Table1.Post; //Сохраняем изменения в оценочной ведомости перед подсчетом
  Table1.Edit;
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Text:='select  Предм1_Т1+Предм1_Т2+Предм_Т3 from '''+table1.TableName+''''; //имена таблицы тоже меняются
  Query1.Open;
 
  Predm1_SrBall:=Query1.Fields[0].asFloat/3; //типа делю сумму на количество предметов
  DBGridEh1.Columns[22].Field.Value :=Predm1_SrBall; //здесь по сути должен средними баллами наполняться столбец 22 (Предм1_СрБалл)

procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject;
    const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  S : Double;
begin
  if Column.Index = 6 then begin //номер колонки, куда выводится значение. Это номер в списке колонок.
    S := (Table1['Предм1_Т1'] + Table1['Предм1_Т2'] + Table1['Предм_Т3']) / 3;
    DBGridEh1.Canvas.TextOut(Rect.Left+2, Rect.Top+2, Format('%3.1f', [S]));
  end;
end;

KolPredm:=8; //переменная типа Integer, с количеством оценок по предмету
if Table1['Предм1_Т1']= Null then begin
Table1['Предм1_Т1']:=0;
KolPredm:=KolPredm-1;
end;

  if VarIsNull(Table1['Предм1_Т1']) then begin
  ...
  end;

var
  Предм1_Т1, Предм1_Т2, Предм1_Т3: Integer;

procedure TForm2.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
begin
KolPredm:=3; //общее количество оценок по предмету (на него делим общую сумму)
 
if Table1['Предм1_Т1']= Null then begin //если ячейка пустая, то
Предм1_Т1:=0;                         //присваиваем 0 переменной Предм1_Т1
KolPredm:=KolPredm-1; //и вычитаем из общего количества оценок единицу
end else Предм1_Т1:= Table1['Предм1_Т1']; //в противном случае присваиваем переменной Предм1_Т1 значение ячейки
 
//далее аналогично
 
if Table1['Предм1_Т2']= Null then begin
Предм1_Т2:=0;
KolPredm:=KolPredm-1; end else Предм1_Т2:= Table1['Предм1_Т2'];
 
if Table1['Предм1_Т3']= Null then begin
Предм1_Т3:=0;
KolPredm:=KolPredm-1; end else Предм1_Т3:= Table1['Предм1_Т3'];
 
  if Column.Index = 22 then begin //Здесь 22 - номер колонки, куда будет выводится итоговое значение типа Double.
    S := (Предм1_Т1+ Предм1_Т2+ Предм1_Т3) / KolPredm; //складываем наши переменные и делим на общее число оценок
    DBGridEh1.Canvas.TextOut(Rect.Left+2, Rect.Top+2, Format('%3.1f', [S]));
    end;

if KolPredm=0 then KolPredm:=1;

procedure TForm2.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
var
  KolPredm : Integer; //общее количество оценок по предмету (на него делим общую сумму)
  S : double;  //эти переменные начинают и заканчивают жизнь локально, не загромождая память
begin
  if Column.Index = 22 then begin //Здесь 22 - номер колонки, куда будет выводится итоговое значение
    S := 0; KolPredm := 0;
    if Table1['Предм1_Т1'] <> Null then begin //если ячейка не пустая, то...
      S := S + Table1['Предм1_Т1'];           //накапливаем сумму баллов
      Inc(KolPredm);
    end; 
 
      //далее аналогично
    if Table1['Предм1_Т2'] <> Null then begin 
      S := S + Table1['Предм1_Т2'];
      Inc(KolPredm);
    end; 
    if Table1['Предм1_Т3'] <> Null then begin
      S := S + Table1['Предм1_Т3'];
      Inc(KolPredm);
    end; 
    if KolPredm > 0 then begin //если средняя есть, то выводим, если нет, то в ячейке будет пусто
      S := S / KolPredm; //делим на общее число оценок
      DBGridEh1.Canvas.TextOut(Rect.Left+2, Rect.Top+2, Format('%3.1f', [S]));
    end;
  end;
  ...

  if Column.Index = 22 then begin //Здесь 22 - номер колонки, куда будет выводится итоговое значение
    S := 0; KolPredm:= 3;
    for i := 1 to KolPredm do
    if Table1['Предм1_Т'+IntToStr(i)] <> Null then  //если ячейка не пустая, то...
      S := S + Table1['Предм1_Т'+IntToStr(i)]        //накапливаем сумму баллов
      else  Dec(KolPredm);          //в противном случае уменьшаем общее число оценок на 1
   if S > 0 then begin //если средняя есть, то выводим, если нет, то в ячейке будет пусто
      S := S / KolPredm; //делим на общее число оценок
     DBGridEh1.Canvas.TextOut(Rect.Left+2, Rect.Top+2, Format('%3.1f', [S]));
   end;