ListBox e Objeto

Olá galera beleza?

Tenho um listbox que é preenchido com objetos da classe TPatrimonio (classe criada para o contexto sistemico do meu problema), e a cada novo patrimonio inserido no banco de dados eu tenho que atualizar a lista de objetos, e isso esta causando um delay no sistema.

Estou fazendo da seguinte forma, o formulario tem uma procedure chamada AtualizaLista(), nessa procedure eu apago todos os objetos que estao nao listBox, em seguida chamo uma função da classe TPatrimonioDAL que se chama getPatrimonios(), essa função retorna um TObjectList, e com base nessa lista de objetos eu preencho o listBox, porem como disse causa um delay, o usuário até consegue ver a lista se formar. alguem teria alguma ideia ou sugestão de como posso melhorar isso?

Obrigado