var
  float : Double;

begin
  // Присвоение бесконечности числу
  float := Infinity;     // Эквивалентно 1.0/0.0

  // Хотя бесконечно, мы всё таки можем отобразить его
  ShowMessage('float = '+FloatToStr(float));

  // И мы можем проверить бесконечно ли оно
  if IsInfinite(float)
  then ShowMessage('float бесконечно')
  else ShowMessage('float = '+FloatToStr(float));
end;