Ayuda no encuantro el ERROR

[ManuelPerez]

El error lo tira cuando devuelvo el dato ' VerificaRepite2:=xx; ' aqui

pero me lo tira cuado el número es un integer, es decir, xx = 1 y no cuando xx = 1,3 . No se si soy claro cuando devuelve el dato ya calculado.
como hago para si suma Integer devuelva si error y cuando sume float tambien.
gracias