This data type represents an 8-byte floating-point value whose range is +/-1.7E308 with at least 15 digits of precision.
dcltrans transaction TMain var fValue1, fValue2, fValue3: float; begin fValue1 := -99.9; fValue3 := (fValue2 / fValue1 + 10.7) * 3.99; end TMain;