Problème calcul décimal

Bonjour à tous,

Je rencontre un problème dans la fonction suivante :

function TEcartArticle.GetValo: Extended;
begin
  Result := (- EcartMoins + EcartPlus) * P;
end;

Dans cette fonction EcartMoins et EcartPlus sont de type Extended et P de type double.

Mon problème est que le resultat renvoyé est toujours arrondi à l'entier alors que je voudrais 2 chiffres après la virgule


Quelqu'un pourrait-il m'éclairer ?

D'avance merci !

Mes variables sont bien en extended et pourtant ça ne marche pas !

C'est bon, j'ai trouvé c'était mon FORMATFLOAT qui n'était pas bon dans mon affichage !