Erro na Transação com delphi

Ola Wesley

o que ha de errado na rotina abaixo , o erro aparece justo na linha vermelha , e estranho e que tenho outras transaçoes com esses mesmo padrao



procedure TfrmRadioLocar.finaliza_locacao;
var
  x: TMotoqueiro;
  NovoSaldo: Real;
  LimiteDebito: Real;
  r: TRadio;
  t: TDBXTransaction;
begin
 
  if fnc_verifica_dados_Motoqueiro(edtMatricula.Text) then
    raise Exception.Create('Não será possivel locar o Rádio com os dados do Motoqueiro desatualizados');

  if edtvalorpagamento.Text = EmptyStr then
    edtvalorpagamento.Text := IntToStr(0);

  NovoSaldo := StrToFloat(edtnovosaldo.Text);

  LimiteDebito := StrToFloat(edtlimitedebito.Text);

  if LimiteDebito < -NovoSaldo then
    raise Exception.Create('Limite do motoqueiro insuficiente para uma nova locação !');

  case Application.MessageBox('Deseja concluir a locação para esse motoqueiro ?', 'Locação ',
    MB_YESNO + MB_ICONQUESTION) of
    IDYES:
      begin
        r := verificaRadioLocado(edtRadio.Text);
        x := VerificaMotoRadio(edtMatricula.Text);
        try
          t := DM.SQLConnection.DBXConnection.BeginTransaction(TDBXIsolations.ReadCommitted);
          Atualiza_limite;
          locacaoRadio;
          Lanca_Movimento;
          Lancamento_caixa;
          // Imprimirecibo ;


          DM.SQLConnection.DBXConnection.CommitFreeAndNil(t);
          Imprimirecibo;
          ShowMessage(IntToStr(aIdlocacao) + '  locacão realizada com sucesso !');

        except
          DM.SQLConnection.DBXConnection.RollbackFreeAndNil(t);
          ShowMessage('Houve um erro na transação');
        end;
        getLimpaLocacao;
      end;
    IDNO:
      begin
        getLimpaLocacao;
      end;
  end;
end;