No me funciona campo Blob
 

Hola amigos estoy con un problema, y lo mas probable es que se deba a mi ignorancia.
La rutina en cuestion debe cargar un campo blob con un codigo de barra, pero al compilar me sale un mensaje de error "Undeclared Identifier ftBlob".
Esta rutina es en Delphi7 con Firebird 1.5

Código Delphi [-]
 IbQuery6.close;
 IbQuery6.sql.clear;
 IbQuery6.sql.Add('UPDATE STOCKMAESTRO');
 IbQuery6.sql.Add('SET CODIGOBARRA = :CodigoBarra');
 IbQuery6.sql.Add('WHERE Id_Producto = :Id_Producto');
 bs := TMemoryStream.Create;
 if Grafico.Picture <> nil Then
   if Grafico.Picture.Graphic <> nil Then
     Grafico.Picture.Graphic.SaveToStream(bs);
 IbQuery6.ParamByName('Id_Producto').AsString := Edit2.Text;
 IbQuery6.ParamByName('CodigoBarra').LoadFromStream(bs, ftBlob);;
 IbQuery6.Open;
 ibTransaction1.CommitRetaining;

Como apreciaran esa instruccion ftBlob me esta causando problemas.
Me faltara algo en el "Uses"
Desde ya muchas gracias.

Encontre la solucion
 

Hola amigos
La solucion era simple. Tal como presentia me faltaba algo en el Uses.

Código Delphi [-]
Uses Db, Jpeg;

y listo.

Despues para imprimirlo uso el QReport con un QRDBImage o un QRDBRichText y listo.

Gracias a mi.