Выводит пустые строки в DBGrid

procedure TForm2.DBGrid1CellClick(Column: TColumn);
var
  ID: Integer;
begin
  ID := qryGlavnaya.FieldValues['Главная'];
  qryZaderjanie.SQL.Text := 'SELECT * FROM Задержание WHERE id = ' + IntToStr(ID);
  qryZaderjanie.Open;
end;

procedure TForm1.btnDeleteClick(Sender: TObject);
var
  ID: Integer;
begin
  ID := ADOQuery1.FieldValues['ID_Вашей_записи_не_помню_как_зовется'];
      try
        try
          ADOQuery2.SQL.Text :=         //вначале удаляем запись в таблице Задержание (в подчиненной)
          // зачем мы завели ADOQuery2 ? Затем, чтобы не переписывать запрос, который только отображает данные,
          // будем использовать ADOQuery2 только для записи/удаления/обновления записей
          'DELETE FROM Задержание WHERE id = '+IntToStr(ID);
          ADOQuery2.ExecSQL;
          // затем удаляем запись из главной таблицы - "Главная"
          ADOQuery2.SQL.Text := 'DELETE FROM Главная WHERE id = ' + IntToStr(ID);
          ADOQuery2.ExecSQL;
        except
          Application.MessageBox(PChar('Ошибка удаления!'), 'Ошибка!', MB_OK+MB_ICONWARNING);
        end;
      finally
        ADOQuery1.Close;     // переоткрываем запрос, чтобы данные в Гриде сразу обновились
        ADOQuery1.Open;
      end;
end;