var blobF:TIB_BlobStream;

    qr_t:tib_query;

begin

 qr_t:=tib_query.Create(self);

 try

   with qr_t do begin

    IB_Connection:=DM.ibo_cn;

    IB_Transaction:=tn;

    Sql.Clear;

    sql.Add('select A.* from ao_explain A');

    prepare;

    open;

    first;

   end;

   blobF:=qr_t.CreateBlobStream(qr_t.fieldbyname('explica'),bsmRead);

   try

    Memo1.Lines.LoadFromStream(blobF);

   finally

     blobF.Free;

   end;

   qr_t.close;

 finally

   qr_t.free;

 end;

Luiz