[Rosenkrantz]

Код:

case cbSign.ItemIndex of
  0: Z := X + Y;
  1: Z := X - Y;
  2: Z := X * Y;
  3: try
        Z := X / Y; 
      except
        Z := 1.1e+38; // Бесконечность при делении на 0
      end;
end;

Если cbSign.ItemIndex меньше 0 или больше 3, то значение Z не будет присвоено. Если вы уверены, что остальная логика программы всегда обеспечивает попадание переменной cbSign.ItemIndex в эти пределы, то можно не обращать внимания. Если нет - добавьте в case вариант else.