[Ildar-tsr]

Ребят, а что вы тут за дискуссию развернули???

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  a, b, c: Double;
begin
  a:=212.53;
  b:=212.49;
  c:=a-b;
  c := round(c * 100 + 0.5) / 100;
  showmessage(floattostr(c));
end;