Fórum Thread de insercao e consulta no FireBird #279086

Olá pessoal
Estou fazendo um sistema onde preciso consultar e gravar em algumas tabelas do FireBird
O problema é o seguinte
O sistema fica em um loop verificando uma tabela paradox vazia
Qdo existir algum registro nesta tabela crio uma instancia de uma thread passando alguns parametros... assim:

ThreadRodBel := TThreadRodBel.Create(True);
ThreadRodBel.Cod_Barra := tbCodBarra.FieldByName´CODBARRA´).Value;
ThreadRodBel.NumCatraca := tbCodBarra.FieldByName(´NRCAT´).Value;
ThreadRodBel.NumPortaria := NumeroPortaria;
ThreadRodBel.Resume;
tbCodBarra.Delete;
tbCodBarra.Refresh;

A ThreadRodBel faz algumas verificacoes fazendo chamadas de procedures, grava um registro em uma tabela ( Historicos ) e edita uma tabela ( Acessos ) e aind grava um registro em uma tabela paradox

Decidi usar thread pois o sistema deve controlar varias catracas

Fiz um programa q insere um registro na tabela paradox que o sistema fica monitorando.
O problema é que da um pau no FireBird.... simplesmente o sistema trava e o cursor fica em forma de ampulheta SQL.

Passei a usar o componente TIB_Transaction, para ver se dava certo, mas o probela continuou