Обновить ADOQuery после нажатия кнопки

[НаталинаПр]

Здравствуйте. Я делаю ис библиотеку. По нажатию кнопки я принимаю книгу и у меня высвечивается сообщение "книга принята", но запись о об этой принятой книге остаётся в табличке, а мне нужно, чтобы она удалялась. Подозреваю, что надо это сделать как

Form1.ADOCopies.Refresh

или

 if Form10.ADOCop.FieldByName('Нал').AsBoolean = trrue then
Form1.ADOCopies.Refresh

но я что-то долго тыкаюсь и у меня не получается

procedure TForm3.ButtonVZClick(Sender: TObject);
var IN:string; i,K:integer;
 begin
  IN:= DBGridCopy.DataSource.DataSet.Fields.Fields[0].Value;
  K:= DBGridR.DataSource.DataSet.Fields.Fields[0].Value;
  Form10.ADOCop.Open;
  Form10.ADOCop.First;
  for i:=1 to Form10.ADOCop.RecordCount do
    begin
     if Form10.ADOCop.FieldByName('Инвент_н').AsString = IN then
     begin
       if Form10.ADOCop.FieldByName('Нал').AsBoolean = false then
         begin
           if Form10.ADOCop.FieldByName('Код_чит').AsInteger= K then
            begin
              Form10.ADOCop.Edit;
              Form10.ADOCop.FieldByName('Наличие').AsBoolean:= true;
              Form10.ADOCop.FieldByName('Дата_возврата').AsDateTime:= Date;
              Form10.ADOCop.FieldByName('Код_читателя').Text:= '';
              Form10.ADOCop.Post;
              ShowMessage('Книга принята');
            end
            else ShowMessage('у этого человека нет книги.');

          end
          else ShowMessage('экземпляр не выдан');
         end
     else
         Form10.ADOCop.Next;

    end;
      Form10.ADOCop.Close;
      ADOQueryR.Active:= true;
     

end;

[ViktorR]

Это сообщение не имеет отношения к Python.