3 If условия c под условиями (if) b одинаковыми телами.

[Аватар]

  ...
  (not (checc in [1,2]) and (sel_NakladCumORkg.Value = 1)) then

[dock2005]

Сообщение от Vapaamies

begin
  if ((checc = 1) and (sel_NakladCuVIDPF_NO.Value in [1, 16])) or
    ((checc = 2) and (sel_NakladCuVIDPF_NO.Value in [5, 7, 11])) or
    (sel_NakladCumORkg.Value = 1) then 
  begin
    VesIzol:=a;
  end
  else
  begin
    VesIzol:=b;
  end;
end;

Нашёл не точность в своём коде нужно было вот так:

begin
if ((checc = 1) and (sel_NakladCuVIDPF_NO.Value in [1, 16])) or
   ((checc = 2) and (sel_NakladCuVIDPF_NO.Value in [5, 7, 11])) or
   ((checc = 0) then
   begin
     if (sel_NakladNimORkg.Value = 1) then
     begin  
       VesIzol:=a;
     end
     else
     begin
       VesIzol:=b;
     end;
   end;  
end;