Tienes la
función Int y la función Round, sería algo así:
mivalorEntero := Int(Round(MiFloat, 1));
El "1" es para que redondee a unidades, si envias 0.1 redondea una décima si envías 0.05 redondea a 5 centésimas.
No lo he probado, pero según la ayuda es así. Suerte!!
Saludos