Проверка содержимого Single

[Shouldercannon]

Передаю через IdTCPClient1/IdTCPServer1 по ЛВС файл размером 1 байт и вывожу среднюю скорость передачи, которая высчитывается в переменной типа Single. Часто после приёма файла в этой переменной находится значение +INF, которое после прохождения через функцию

function GetNormalFileSize(FSize: Int64): String;
var
  Kb, Mb, Gb: Real;
begin
  Result := Format('%s б', [IntToStr(FSize)]);

  Kb := FSize / 1024;
  Kb := Trunc(Kb * 10) / 10;
  if Kb < 0.7 then Exit;
  Result := Format('%s Кб', [FloatToStr(Kb)]);

  Mb := Kb / 1024;
  Mb := Trunc(Mb * 10) / 10;
  if Mb < 0.7 then Exit;
  Result := Format('%s Мб', [FloatToStr(Mb)]);

  Gb := Mb / 1024;
  Gb := Trunc(Gb * 10) / 10;
  if Gb < 0.7 then Exit;
  Result := Format('%s Гб', [FloatToStr(Gb)]);
end;

выдаёт значение -9223372036854775808 б

Как проверить эту переменную? Если у нас значение +INF, то

ShowMessage('бла-бла')

[Аватар]

IsInfinite

[Shouldercannon]

Благодарю