Llenar un combobox con los campos de una tabla

[[Lepe]]

No haría falta ni ejecutar la consulta, creo que esto serviría:

Código Delphi [-]
var q:Tquery;
    i:integer;
begin
  q := Tquery.create(nil);
  q.databasename := 'c:\......';
  q.sql.text := select * from tabla;
  q.FieldsDef.Update;
  with q do
  for i:=0 to FieldsDef.Count-1 do
    combo.items.Add(Fieldsdef[i].FieldName);
freeandnil(q);
end;

[/saludos]