Table - obter campos numa combobox

procedure ObterCampos(Tb:TQuery;var S:TComboBox);

var

   I:Integer;

begin

     S.Items.Clear;

     For I:=0 to Tb.FieldCount-1 do

          S.Items.Add( Tb.Fields[I].DisplayName );

end;