Пример кода : Присвоение числу Infinity, и затем использование IsInfinite
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;