проверка при зполнении побайтово в single

[IliaIT]

есть некая программ которая читает данные с прибора через ком порт.
эти данные предаются в дальнейшую обработку и сохраняются результаты.
проблема в следующем.
программа передаёт значение типа float побайтово, я это значение пытаюсь вставить аналогично в тип дельфи single. но иногда в приборе возникает ошибка и приходят случайные байты вместо нужных. в результате возникает ошибка присвоения и в отладчике пишется в значении переменной "-NAN" что вызывает исключительную ситуацию и выкидывает из дальнейшей обработки параметров прибора. значения байтов может быть например 0,232,145,255


как правильно исключить данную ошибку?
на текущий момент сделано следующим образом.

  
        d_a[1]:=b_in[5]; //переменная
        d_a[2]:=b_in[4];
        d_a[3]:=b_in[7];
        d_a[4]:=b_in[6];
        try
          if (l_val>-2147483640)and(l_val<2147483640)then
          begin
            A_Sin(p,0);//процедура отображения
            A_res(l_val,18,p); //процедура сохранения
          end
          else Slog('Ошибка числа, слишком большое(маленькое) в строке прибора ');//сохранение ошибки
        except
          Slog('Ошибка числа, слишком не правильные байты в нём, в  строке прибора '); //сохранение ошибки
        end;

где

var
  l_val:single;
  d_a: array[1..4] of byte absolute l_val;
  b_in: array[1..70] of byte;

[EUGY]

Интересно, есть такая функция в делфи IsNaN()?

[IliaIT]

спасибо. добавил строчку. теперь работает лучше

        
        d_a[1]:=b_in[5]; //переменная
        d_a[2]:=b_in[4];
        d_a[3]:=b_in[7];
        d_a[4]:=b_in[6];
        try
          if not IsNaN(l_val) then
          if (l_val>-2147483640)and(l_val<2147483640)then
          begin
            A_Sin(p,0);//процедура отображения
            A_res(l_val,18,p); //процедура сохранения
          end
          else Slog('Ошибка числа, слишком большое(маленькое) в строке прибора ');//сохранение ошибки
        except
          Slog('Ошибка числа, слишком не правильные байты в нём, в  строке прибора '); //сохранение ошибки
        end;