Canvas zeichnet bei Integer, nicht bei Single

[malo]

Du kannst einen Float-Datentyp ganz leicht durch ein Round casten.
Also

Delphi-Quellcode:

var i: integer;
    f: real;

...

i := Round(f);