[ecfisa]

Hola gonza.

Podes hacer así:

Código Delphi [-]
...
var
  x: Double;
begin
  x:= 713/6;
  if x = Trunc(x) then
    ShowMessage('Entero')
  else
    ShowMessage('Decimal');
end;
...

Saludos.