Sumar y Dividir Combobox

[ZiriusB]

Hola amigos, estoy realizando una aplicacion en donde tengo un formulario con una cantidad de Combobox (pongamos 16) cada combobox tiene dentro numeros del 1 al 4...

Yo necesito sumar todos esos combobox y que el resultado me lo muestre en un Tedit, realice esta linea de codigo:

Código Delphi [-]
procedure Tasisadmin.SpeedButton1Click(Sender: TObject);
begin
nfinal.Text := IntToStr( StrToInt(ComboBox1.Text)+
StrToInt(ComboBox2.Text) + StrToInt(ComboBox3.Text)+
StrToInt(ComboBox4.Text)+ StrToInt(ComboBox5.Text)+
StrToInt(ComboBox6.Text)+ StrToInt(ComboBox7.Text)+
StrToInt(ComboBox8.Text)+ StrToInt(ComboBox9.Text)+
StrToInt(ComboBox10.Text)+ StrToInt(ComboBox11.Text)+
StrToInt(ComboBox12.Text)+ StrToInt(ComboBox13.Text)+
StrToInt(ComboBox14.Text)+ StrToInt(ComboBox15.Text)+
StrToInt(ComboBox16.Text));
end;

luego de eso, necesito que me divida el resultado de dicha suma entre el numero de combobox totales, es decir, si el resultado me da 46 eso lo divido entre el numero de combobox y obtengo el resultado...

P.D.: existe alguna forma de que no sea tan larga la linea de codigo al sumar los combobox?

Espero poder obtener ayuda...gracias!

Vale decir que soy novato en esto del delphi!