Delphi - valor entero de una division

Me da error y no puedo conseguir guardar la parte entera de la division en la variable durachores, tem es una variable de tipo double no se si aqui puede esta el problema.
durachores:= ((tem*10) div 1);

Prueba con duchadores:= trunc(tem*10); y prueba tambien a leer la ayuda de vez en cuando.

El valor de (tem*10) es un double, o mejor dicho es del tipo double.
La sintaxis para div es

Integer div Integer

Primero debes convertir (tem*10) a entero (Integer).

La función que devuelve la parte entera de un valor en formato de punto flotante (número real) es INT, mientras que FRAC devuelve la parte decimal). TRUNC es como INT, pero devuelve un entero en vez de un real.

En el siguiente ejemplo, f será el la parte entera que resulta de la división real de a por b:

f := Int(a / b);

DIV realiza una división entera, es decir, los operandos deben ser enteros, o ser convertidos a enteros con TRUNC o con ROUND (como TRUNC, pero redondea). Nota que el truncado o redondeado de los operandos antes de realizar la operación puede afectar el resultado de la división.

durachores:= TRUNC(tem*10) div 1;

Ernesto De Spirito
http://www.latiumsoftware.com/es/index.php

la funcion TRUNC me ha funcionado de maravilla, gracias a todos