Podrías usar Trunc (o también Round):
Código Delphi
[-]VariableEntero := Trunc (ValorFlotante);
O bien la propiedad AsInteger de los campos.
Sería bueno que mostraras un poco del código de esa rutina.
Una pregunta: ¿a qué se debe que desees convertir campos flotantes a enteros?