Есть TADOTable, которую пользователль редактирует в окошке. Хочется чтоп при закрытии окошко спрашивало "Сохранить изменения?", естессно если есть несохранённые изменения. В том числе и удалённые записи. Вот этот момент меня очень нервирует. Сейчас "работает" "временное решение" основанное на пробегании всей таблицы и проверки UpdateStatus'а текущей записи:

function WasChanged(t:TADOTable):boolean;
begin
  result:=false;
  t.First;
  while not(t.Eof) do begin
    if t.UpdateStatus<>usUnmodified
      then begin result:=true; break; end;
    t.Next;
  end;
end;

Мало того что этот код травмирует психику , так он ещё и не улавливает наличие удалённых записей. Чего и следует ожидать, т.к. Next проскакивает удалённые записи. Возникает вопрос: как это сделать по-человечески?