Problemas na hora de baixar a parcela

Olá pessoal estou com um probleminha aqui!

Coloquei uma aba no cadastro de clientes que ali eu vizualizo os LANCAMENTOS dele em um grid!

E estou fazendo aqui direto por esta aba para dar baixa na parcela, então fiz o seguinte:
Coloquei um radiobutton para selecionar para baixa e a data para o usuário definir e um botão para baixa, como essa aba busca dados e vai ser movimentado da tabela do lancamento e não dos clientes eu coloquei um query e fiz up para conseguir alterar os dados, mas não acontece nada, tipo assim eu vizualizo as parcelas seleciono e ai vou dar baixa e ele não faz nada!.

Códigos

procedure Tfrmalunos.SpbBaixarClick(Sender: TObject);
begin
with DtmIza.UpAluLan do
begin
SQL.Clear;
SQL.Add(´UPDATE Lancamento´);
SQL.Add(´SET DTPGTO = :DtPgto´);
SQL.Add(´WHERE Codigo = :Codigo and Vencimento = :Vencimento´);
ParambyName(´Codigo´).AsInteger := DtmIza.QryAluLan.FieldByName(´Aluno´).AsInteger;
ParambyName(´Vencimento´).AsDateTime := DtmIza.QryAluLan.FieldByName(´Vencimento´).AsDateTime;
if RdbBaixa.Checked then
ParambyName(´DtPgto´).AsDateTime := Date
else
ParamByname(´DtPgto´).Clear;
ExecSQL;
Transaction.CommitRetaining;
end;
end;