Problemas com Interbase Components.

Problemas com Interbase Components.

Quando eu dou um insert usando a IBQuery eu consigo resgatar as informações por um select, mas quando eu dou um 2 insert não consigo mais resgatar as novas informações dentro do Programa.
Obs: Quando eu vejo os dados pelo SQLExplorer eles estão lá.

Linha de Código usado pelo Insert:
SQL := ´ INSERT INTO VISITANTE (DOCUMENTO, ID_TIPO_DOC,NOME) VALUES (´ +
´´´´ + edDoc.Text + ´´´´ +
´,´ + IntToStr(ArrayTipoDoc[cboTipoDoc.ItemIndex]) +
´,´ + ´´´´ + edNome.Text + ´´´´ + ´)´;

IBQuery.Close;
IBQuery.SQL.Clear;
IBQuery.SQL.Add(SQL);
try
IBTransaction.Active := False;
IBTransaction.StartTransaction;
IBQuery.ExecSQL;
IBTransaction.Commit;
except
IBTransaction.Rollback;
end;

Linha de Código usado pelo Select:

SQL := ´ SELECT DOCUMENTO, NOME, TIPO_DOC.ID, TIPO_DOC.DESCRICAO FROM VISITANTE,TIPO_DOC ´+
´ WHERE ID_TIPO_DOC = TIPO_DOC.ID ´

IBQuery.Close;
IBQuery.SQL.Clear;
IBQuery.SQL.Add(SQL);
IBQuery.Open;


Alguem sabe qual o Problema?

Obrigado Douglas