procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin ADOQuery1.UpdateBatch(); end;
Я не понял Вашего вопроса, но всё же Вам на него отвечу!