[ecfisa]

Hola Kannon.

Ejemplo:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Table1->Open();
  Table1->DisableControls();
  ComboBox1->Items->BeginUpdate();
  ComboBox1->Items->Clear();
  while (!Table1->Eof) {
    ComboBox1->Items->Add(Table1->FieldByName("Campo")->AsString);
    Table1->Next();
  }
  ComboBox1->Items->EndUpdate();
  Table1->First();
  Table1->DisableControls();
}

Saludos