problema con combo box

[sanxpue]

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;

Esta medio rara la cosa deberia de quedar ma o menos asi

Código Delphi [-]
Procedure TfrmManproductos.CargaFamilia;
begin
  tblFamily.Open;
  tblFamily.First;
  while not tblFamily.Eof do
  begin
    //Aqui por que llamas a un query???
    //FrmManproductos.cboxFamily.Items.Add(FrmManproductos.qryFamily.Fields[0].AsString);
 //Aqui por que la cierras ???
  //    FrmManproductos.tblFamily.close; 
    cboxFamily.Items.Add(tblFamily.FieldByName('Nombre_Del_Campo').AsString);
    tblFamily.Next; //Para que te de el siguiente registro
  end;
end;

Ya nada mas el otro lo acomodas bien