[[maeyanes]]

Hola...

Tu error está en como tienes agrupado el with:

Código Delphi [-]
//Para las resistencias y pesos
  //paredes exteriores
  ppe:= 0;
  Rpe:= 0;
  for i:= 0 to ComponentCount -1 do
    if Components[i] is TComboBox then
      with TComboBox(Components[i]) do
      begin
        if Tag in [51..54] then
          if ItemIndex <> -1 then
          begin
            ppe:= ppe + Material[ItemIndex].VPeso;
            Rpe:= Rpe + Material[ItemIndex].VResist
          end;
        //Techo exterior
        pte:=0;
        Rte:=0;
        if if Tag in [51..54] then
          if ItemIndex <> -1 then
          begin
            pte:= pte + Material[ItemIndex].VPeso;
            Rte:= Rte + Material[ItemIndex].VResist
          end
      end;

Saludos...