Resumir tabla

[Chichero]

Código Delphi [-]
//Equipos
CASE Combobox1.ItemIndex OF
0,5: Begin
Qeq1:=500;
end;
1: Begin
Qeq1:=23;
end;
.
.
.
//y asi hasta llegar al ultimo caso
26: Begin
Qeq1:=1000;
end;

CASE Combobox2.ItemIndex OF
0,5: Begin
Qeq2:=500;
1: Begin
Qeq2:=23;
.
.
.
//y asi hasta llegar al ultimo caso
26: Begin
Qeq1:=1000;
end;
.
.
.
//Y asi hasta llegar al ultimo combobox (13)
CASE Combobox13.ItemIndex OF
0,5: Begin
Qeq13:=500;
1: Begin
Qeq13:=23;
.
.
.
//y asi hasta llegar al ultimo caso
26: Begin
Qeq13:=1000;
end;
Qte:= Qe1*ne1+Qe2*ne2+...+Qe3*ne3;

(supongase q todas las variables están declaradas)
nex: numero de equipos "X"
Ven que sería demasiado largo!!