erro no ibquery, não atualiza

Pessoal estou fazendo o seguinte:

faço uma seleção usando uma ibquery, e logo depois quero percorrer na ibquery para capturar um dado e jogar ele para um combobox....mais ele não da erro, so não entra no while not ibqbenef.eof....sendo que era para entrar, pois antes de fazer essa consulta eu armazenei dados na tabela de benificio. abaixo eu mostro o codigo da consulta e do cadastro...se eu saio do programa e entro novamente ele aparece, mais em tempo de excecução ele não mostra os dados inserido novos

codigo - consulta

IBQbenef.Close;
 IBQbenef.SQL.Clear;
 IBQbenef.SQL.Add('select * from TB_BENIFICIO ORDER by CODSEGURADO');
 IBQbenef.Open;
 combobox2.Items.Clear;
 IBQbenef.Close;
 IBQbenef.Open;
 IBQbenef.First;
 While Not IBQbenef.Eof do
 begin
 ComboBox2.Items.Add(' '+IBQbenef.FieldByname('CODSEGURADO').AsString);
 IBQbenef.Next;
 End;

codigo cadastro
[code]
with IBQBenificios do
begin
try

 if IBTBenificios.Active then IBTBenificios.Commit;
 IBTBenificios.StartTransaction;
 IBQBenificios.Close;
 IBQBenificios.SQL.Clear;
 IBQBenificios.SQL.Add('insert into tb_benificio values (:vcodbenificio, ');
 IBQBenificios.SQL.Add(':vtipo_benificio, ');
 IBQBenificios.SQL.Add(':vcodsegurado, ');
 IBQBenificios.SQL.Add(':vdatainicio, ');
 IBQBenificios.SQL.Add(':vdatafim, ');
 IBQBenificios.SQL.Add(':vhistorico, ');
 IBQBenificios.SQL.Add(':vbenifcio_dias, ');
 IBQBenificios.SQL.Add(':vvalor_beneficio, ');
 IBQBenificios.SQL.Add(':vremuneracao,');
 IBQBenificios.SQL.Add(':vflag,');
 IBQBenificios.SQL.Add(':vcodseg)');
 IBQBenificios.parambyname('vcodbenificio').AsInteger:=cod;
 IBQBenificios.parambyname('vtipo_benificio').AsString:=benificio.Text;
 IBQBenificios.parambyname('vcodsegurado').AsString:=segurados.Text;
 IBQBenificios.parambyname('vdatainicio').AsDate:=Inicio.Date;
 IBQBenificios.parambyname('vdatafim').AsDate:=Fim.Date;
 IBQBenificios.parambyname('vhistorico').AsString:=edit3.Text;
 IBQBenificios.parambyname('vbenifcio_dias').asinteger:=strtoint(nrodia.text);
 IBQBenificios.parambyname('vvalor_beneficio').AsCurrency:=strtocurr(edit1.Text);
 IBQBenificios.parambyname('vremuneracao').AsCurrency:=strtocurr(edit2.Text);
 if label6.Checked = true then
 IBQBenificios.parambyname('vflag').AsString:='1'
 else
 IBQBenificios.parambyname('vflag').AsString:='2';
 IBQBenificios.parambyname('vcodseg').AsInteger:=strtoint(edit4.Text);
 IBQBenificios.ExecSQL;
 IBTBenificios.Commit;
 certo:=1
 except
 IBTBenificios.Rollback;
 showMessage('Ocorreu um erro ao tentar salvar informações.');
 exit;
 end;
 end;

valeu galera.....se puderem me ajudar agradeço....abraços