[Neftali [Germán.Estévez]]

¿Te refieres a esto?
Lo puedes poner después de dividir. Lo que hace es que si el resultado no es exacto, lo convierte a ''.

Código Delphi [-]
  if (StrToFloat(Edit3.Text) <> Trunc(StrToFloat(Edit3.Text))) then begin
    Edit3.Text := '';
  end;