Pegar novo ID gerado pelo GENERATE no INSERT

try
  with DataModulo.Query do
  begin
    if (Active) then
      Close;
    SQL.Clear;
    SQL.Add('INSERT INTO PAGAMENTOS (ID_VENDA, ID_ABERTURA_CAIXA, ID_FORMA_PAGAMENTO, ' +
      'ID_USUARIO, NCAIXA, ID_BANDEIRA, ID_PARCELA, VALOR, JUROS, TROCO, DESCR, DATA, HORA, ATIVO) ' +
      'VALUES (:ID_VENDA, :ID_ABERTURA_CAIXA, :ID_FORMA_PAGAMENTO, :ID_USUARIO, :NCAIXA, :ID_BANDEIRA, ' +
      '0, :VALOR, 0, 0, :DESCR, CURRENT_DATE, CURRENT_TIME, TRUE) RETURNING(ID)');
    ParamByName('ID_VENDA').AsInteger := AID_Venda;
    ParamByName('ID_ABERTURA_CAIXA').AsInteger := auxID_AberturaCaixa;
    ParamByName('ID_FORMA_PAGAMENTO').AsInteger := AFormaPagamento;
    ParamByName('ID_USUARIO').AsInteger := auxID_Usuario;
    ParamByName('NCAIXA').AsInteger := auxNCaixa;
    ParamByName('ID_BANDEIRA').AsInteger := ABandeiraCartao;
    ParamByName('VALOR').AsCurrency := AValor;
    ParamByName('DESCR').AsString := ADescr;
    Open;
    Result := FieldByName('ID').AsInteger;
  end;
  DataModulo.Transaction.Commit;
except
  on E: Exception do
  begin
    DataModulo.Transaction.Rollback;
    raise Exception.Create('Erro ao inserir pagamento!' + #13 + E.Message);
  end;
end;