[ecfisa]

Hola.

Probá de este modo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i, r: Integer;
begin
  r:= 0;
  for i:= 0 to ComponentCount-1 do
   if Components[i] is TComboBox then
      r:= r + StrToInt(TComboBox(Components[i]).Text);
  nfinal.Text:= IntToSTr(r);
end;

Saludos.