[NumLock]

SpectraL, так еще прикольней:

Код:

var
  a, b, c: Extended;
begin
  a:=212.53;
  b:=212.49;
  c:=a-b;
  Edit1.Text:=FloatToStr(c);
  Edit2.Text:=FloatToStr(0.04-c);
  if Abs(c-0.04)<1E-9 then ShowMessage('c=0.04');
end;

Edit1 = 0,04, а вот Edit2 = 6,105413483809E-18
красная строчка тебе в помощь!