Função para verificar se é um número inteiro válido

try
inttostr(numerointeiro);
except
showmessage(´nao é inteiro´);
end;

pô devia ter pensando nisto antes
valeuuuu