[ramiretor]

Hola:
Para que el while funcione debes tomar en cuenta que el arreglo donde se guardan las columnas, por ejemplo, supongamos que el componente se llama query queda:

[delphi]
with query do
begin
open;
first;
for i:= 0 to FieldCount - 1 do
begin
.....
end;

end;