Podrias probar utilizando la función Trunc(), que recibe como parametro un valor real y devuelve el valor truncado, o sea sin decimales... y lo utilizarias de la siguiente manera:
vResultado:=Variable1 / Variable2;
if Trunc(vResultado)=vResultado then
Showmessage('Es entero')
else
Showmessage('No Es entero');
el truco esta en preguntar si el numero truncado es igual al numero sin truncar... si es asi es por que el numero es un entero...
Prueba si te funciona..
Un saludo...
