您拥有 TADOQuery.Modified 属性，例如：

You have the TADOQuery.Modified property e.g:

if ADOQuery1.State in [dsEdit, dsInsert] and (ADOQuery1.Modified) then
  if KeepChanges then
    ADOQuery1.Post
  else
    ADOQuery1.Cancel;