[maui]

hola amigos del club

tengo un mantenedor de productos, en los cuales tengo 2 combo box:
familia y proveedor, estos tienen sus respectivos codigos a elegir, pero al compilar me da el sigte error "list index out bounds(0)".

estoy guardando, eliminando y modificando con procedimientos almacenados.
este es el codigo que estoy utilizando para los combos:

Código Delphi [-]
Procedure TfrmManproductos.CargaFamilia;
begin
  FrmManproductos.tblFamily.Open;
  FrmManproductos.tblFamily.First;
  while not FrmManproductos.tblFamily.Eof do
  begin
    FrmManproductos.cboxFamily.Items.Add(FrmManproductos.qryFamily.Fields[0].AsString);
    FrmManproductos.tblFamily.close;
  end;
  //FrmManproductos.tblFamily.close;
end;

procedure TfrmManproductos.CargaProveedor;
begin
FrmManproductos.tblProvee.Open;
FrmManproductos.tblProvee.first;
while not FrmManproductos.tblFamily.Eof do
begin
FrmManproductos.cboxProvee.Items.Add(FrmManproductos.qryProvee.Fields[0].asString);
FrmManproductos.tblProvee.close;
end;
//FrmManproductos.tblProvee.Close;
end;

he intentado todo, pero no he conseguido nada....

por favor espero sus comentarios....