Доброго времени суток, Уважаемые жители Королевства!
Имеем Delphi 10.3 Version 26.0.32429.4364 и функцию Trunc
При передаче в функцию сложновычисляемого значения наблюдается странно поведение. Пример тестового App:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TObj = class
    class function Discrete: Currency;
  end;

  TOrder = record
    Vol: Currency;
    Amount: Currency;
    Price: Currency;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  O: TOrder;
  c: Currency;
begin
  O.Price := 48;
  O.Amount := 96.48;
  c := TObj.Discrete;
//Ожидаемый результат O.Vol = 2,01 но не все так просто
//В одну строку
  O.Vol := Trunc(O.Amount / O.Price / c) * c; // НЕВЕРНО!!!!!!!! O.Vol = 2
//"с" заменена на "прибитое гвоздями" значение
  O.Vol := Trunc(O.Amount / O.Price / 0.01) * c; // Верно O.Vol = 2,01
//Последовательное раздельное вычисление
  O.Vol := O.Amount / O.Price / c;
  O.Vol := Trunc(O.Vol) * c; // Верно O.Vol = 2,01
  Application.Terminate;
end;

{ TObj }

class function TObj.Discrete: Currency;
begin
  Result := 0.01;
end;

Что происходит с функцией? Ничего не понимаю...
Заранее спасибо за ответы