Or use CompareValue. Read more:
https://www.freepascal.org/docs-html/rtl/math/comparevalue.html
procedure TForm1.Button1Click(Sender: TObject); var i : Integer; begin i := 14; Memo1.Lines.Add(FloatToStr(10*Frac(i/10))); if CompareValue(10*Frac(i/10), 4) >= 0 then Memo1.Lines.Add('Test Passed!'); end;