[guillotmarc]

Hola.

La última vez que he tenido que hacer algo parecido, he usado funciones de las RxLib. En concreto las WordCount y ExtractWord.

Es decir, accedo al Blob como una Cadena, y utilizo las funciones comentadas para extraer cada una de las lineas de la cadena.

Ejplo.

  Uses RxStrUtils;
  ...
  ...
  Cadena := Query1.FieldByName('CAMPO_BLOB').AsString;
  for i := 1 to WordCount(Cadena, [#10]) do begin
    ShowMessage(ExtractWord(i, Cadena, [#10]));
  end;

Nota: Seguro que hay una forma más elegante de hacerlo con un TStringList, pero esta funciona correctamente.

Saludos.