Delphi - ayuda campo blob

qryimag.ParamByName('imagen').LoadFromStream(bs,ftGraphic);

qryimag.ParamByName('blbLogo').LoadFromFile(txtRutaLogo.Text, ftGraphic);

var

    fldCampo : TField;

    stStream : TStream;

    pngImagen: Tdbimage;

begin

    with qryimag do begin

        qryimag.Close;

        qryimag.SQL.Clear;

        qryimag.SQL.Add('SELECT * FROM imagenes');

        qryimag.Open;

        try

          fldCampo := FieldByName('imagen');

          stStream := CreateBlobStream(fldCampo, bmRead);

          pngImagen := Tdbimage.Create(imgfot);

          pngImagen.Picture.Graphic.LoadFromStream(stStream);

          imgfot.Picture.Assign(pngImagen);

          pngImagen.Free;

        except

        end;

    end;

end;

fldCampo := FieldByName('logo');

stStream := CreateBlobStream(fldCampo, bmRead);

imgLogo.Picture.Bitmap.LoadFromStream(stStream);