Pues sinceramente creo que te estas complicando la vida. El primer mensaje que puse hablando del QrCreateList hace exactamente eso.
Lo único es montar una consulta, del tipo
Código SQL
[-]
select * from tabla where folio = 1
Ahora creas un TStringList, y añades los campos:
Analisis1
Analisis2
Analisis4
Analisis6
Llamas a la función qrCreateList, y ya tienes generado el listado.
Si acaso, puedes recorrer los datos antes de hacer el preview, para que el campo que sea nulo, ponerle los guiones '----', si no lo haces, saldrá un 0 (que tampoco es tan grave).
En apens 15 lineas de código lo tienes hecho.
saludos