Problemas para popular o DBComBox

Tenho um form principal e vários TabSheets e alguns DBComboBox, coloquei no formShow do principal o código:

FrmQuerys.QueryProdu.close;
FrmQuerys.QueryProdu.Open;

While not FrmQuerys.QueryProdu.Eof do
Begin
DBCodigo.ItemIndex:=0;
DBCodigo.Items.Add(Uppercase(FrmQuerys.QueryProdu.FieldByName(´codigo´).AsString));
FrmQuerys.QueryProdu.next;
end;

O meu problema é o seguinte: como só popula quando é executado o formShow do principal, então quando faço algum cadastro o DBComboBox não é atualizado. E se colocar o código no FormShow do TabSheet, cada vez que clico nesse evento ele duplita as informações.

Se alguém puder me dar uma dica agradeço.

Márcia Costa