procedure TForm1.FormCreate(Sender: TObject); var a, b, c: Extended; begin a := 212.53; b := 212.49; c := a - b; if c = 0.04 then ShowMessage(FloatToStr(c)) end;