[gonza_619]

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

asi me funciono muchas gracias