Dividieren durch gebrochene Zahlen

[Coder]

ich möchte gerne durch gebrochne Zahlen dividieren.

Bsp: 56654 / 35.456
= 1597,86

Ist der Algo so richtig?

Delphi-Quellcode:

function real_teilen(valueue1: real; value2: real): real;
var x, y, z: real;
begin
  x := value / value2;
  y := x * 100;
  z := int(trunc(y));
  z := z / 100;
  result := z;
end;

oder kann man den noch verbessern?