Fórum update na tabela com um CheckListBox? #431343

Pessoal,
Com o primeiro código lanço na tabela 13 registros referentes as mensalidades do aluno, não consigo com o segundo código fazer um update que de acordo com um CheckListBox de 13 opções insira no campo SITUACAO = 'Pago' e no campo Data_Pagamento a data atual:

1º CODIGO

procedure TFrmFinanceiro.cxButtonClick(Sender: TObject);
const
MES_MENSALIDADE : array [0..12] of String = ('MATRÍCULA', 'JANEIRO', 'FEVEREIRO', 'MARÇO',
'ABRIL', 'MAIO', 'JUNHO', 'JULHO', 'AGOSTO', 'SETEMBRO', 'OUTUBRO', 'NOVEMBRO', 'DEZEMBRO');
var
dia, mes: Word;
vencimento: TDateTime;
begin
try
DmDados.IBQryMensalidade.close;
DmDados.IBQryMensalidade.open;
dia := strtoint(EdtDia_Base.Text);
for mes := 0 to 12 do
begin
DmDados.IBQryMensalidade.Insert;
DmDados.IBQryMensalidadeMATRICULA_MENSALIDADE.AsString := DmDados.IBQryAlunoMATRICULA.AsString;
DmDados.IBQryMensalidade.FieldByName('Situacao').Value := IfThen(cxCheckListBox1.Items[mes].Checked, 'Aberta', 'Isento');
DmDados.IBQryMensalidadeMES_MENSALIDADE.AsString := MES_MENSALIDADE[mes];
DmDados.IBQryMensalidadeANO_MENSALIDADE.AsInteger := StrToInt(EdtAno.Text);
DmDados.IBQryMensalidadeVALOR_MENSALIDADE.AsFloat := EdtValorOrcado.Value;
DmDados.IBQryMensalidadeESCOLA.AsString := sEscola;

if cxCheckListBox1.Items[mes].Checked then
begin
vencimento := EncodeDate(StrToInt(EdtAno.Text), IfThen(mes = 0, 1, mes), dia);
case DayOfWeek(vencimento) of
1: DmDados.IBQryMensalidade.FieldByName('DATA_VENCIMENTO').AsDateTime := vencimento + 1;
7: DmDados.IBQryMensalidade.FieldByName('DATA_VENCIMENTO').AsDateTime := vencimento + 2;
else
DmDados.IBQryMensalidade.FieldByName('DATA_VENCIMENTO').AsDateTime := vencimento;
end;
DmDados.IBQryMensalidadeDIA_BASE.Value := EdtDia_Base.Text;
end;
end;
except on E: Exception do
begin
DmDados.IBQryMensalidade.Cancel;
Application.MessageBox(PChar('As Mensalidades deste Aluno já foram geradas neste Ano!' + #13), 'ATENÇÃO!', MB_ICONERROR);
abort;
end;
end;
DmDados.IBQryMensalidade.Post;
DmDados.IBQryMensalidade.Refresh;
DmDados.IBQryMensalidade.Close;
DmDados.IBQryMensalidade.Open;
DmDados.IBQryAluno.Close;
DmDados.IBQryAluno.Open;
Application.MessageBox('As Mensalidades foram geradas com sucesso!', 'Atenção', mb_iconinformation + mb_ok);
end;


2º CÓDIGO

procedure TFrmFinanceiro.BtnBaixarMensalidadeClick(Sender: TObject);
begin
with QryBaixarMensalidade do
begin
Close;
SQL.Clear;
SQL.ADD('Update MENSALIDADE set situacao = ''Pago'' WHERE ESCOLA = :ESCOLA and matricula_mensalidade = :matricula_mensalidade');
ParamByName('escola').AsInteger := DmDados.IBQryAlunoESCOLA.AsInteger;
ParamByName('matricula_mensalidade').AsInteger := DmDados.IBQryAlunoMATRICULA.AsInteger;
ExecSQL;
IBQryMensalidade.close;
IBQryMensalidade.open;
DmDados.IBQryAluno.Close;
DmDados.IBQryAluno.Open;
DmDados.IBTransaction.CommitRetaining;
end;
end;