procedure TForm1.btnUndoClick(ASender: TObject);
begin
  ADQuery1.UndoLastChange(True);
end;