Contar Columnas de una Tabla.

[nicolasdom]

Necesito contar las columnas de una tabla para de esta manera cargar e inicializar un arreglo. Pero no se como se hace...

  
 
  IBQuery1.Close;
  IBQuery1.SQL.Clear;
  IBQuery1.SQL.Add('SELECT * FROM PERMISOS');
  IBQuery1.SQL.Add('WHERE nombre_usuario = :nombre_usuario;');
 
  "cantidad de columnas" := Select? Count? What????
 
  IBQuery1.Active:=True;
  IBQuery1.Open; 
  While "cantidad de columnas" do
	arreglo[i]:=IBQuery1.Fields[i].AsString;
 
  IBQuery1.Close;

Espero soluciones... si es que las hay...