[Xianto]

Lo que dice Neftali del While lo necesitas, para que no te de error, más alla de eso me... imagino que buscas algo como esto:

While Not ADOQuery.Recordset.EOF Do
   begin
	 For x := 0 to ADOQuery.Recordset.Fields.Count -1 Do
	   begin  
		 valor_campo	:= ADOQuery.Recordset.Fields[x].Value;
		 nombre_campo := ADOQuery.Fields[x].DisplayName;
		 tipo_campo	  := ADOQuery.Fields[x].DataType;
	   end;
	 ADOQuery.Recordset.MoveNext;
  end;

Bue, saludetes !