[vtdeleon]

Usa:

Código Delphi [-]
 while not Table2.Eof do
begin
  ComboBox1.Items.Add(Table2.FieldbyName('Nombre Categoria').AsString);
  Table2.Next;
end;