请参考:
try
  adodataset1.post;
except
  adodataset1.cancel;
  adodataset1.requery();
  showmessage('其它用户正在编辑本记录,不能保存');
end;
好运!