Ibquery com IbupdateSQL

Ola pessoal estou com um problema meio estranho no meu sistema, fiz essa seguinte rotina, não sei se esta certo pq é a primeira vez q trabalho com o IBX, mas vejam:
dtm.tblgenero.insert;
dtm.ibqry.close;
dtm.ibqry.SQL.clear;
dtm.ibqry.Params.CreateParam(ftString,´ngen´,ptUnknown);
dtm.ibqry.ParamByName(´ngen´).asstring:=ngen;//ngen é uma variavel
dtm.ibqry.SQL.Add(´Select Max(codgenero)+1 from tblgenero´);
dtm.ibqry.open;
cod:=inttostr(dtm.ibqry.fieldByName(´F_1´).value);
dtm.ibupsql.InsertSQL.add(´insert into tblgenero (codgenero,descricao) values (´´+cod+´´,´:ngen´)´);
dtm.ibupsql.execSQL(ukInsert);
dtm.tblgenero.post;

bem o q contece compila normal, quando eu clico na entrar na rotina, entra normal e insere um novo dado, mas o acontece de errado, não aparece nada, aparece só + 1 linha em branco no dbgrid cada vez que eu peço pra inserir, o q pode estar acontecendo?