Firebird - Procedimientos - Llenar un campo tipo BLOB con una imagen

SET TERM ^ ;
CREATE PROCEDURE UPDATE_IMAGE(
    CVE_REG VARCHAR(12) CHARACTER SET UTF8 COLLATE UTF8,
    IMAGE BLOB)
RETURNS( RETVAL SMALLINT )
AS
BEGIN
    UPDATE CAT_IMAGES 
        SET CAT_IMAGES.IMAGE = :IMAGE 
        WHERE CAT_IMAGES.CVE_REG = :CVE_REG;
    SUSPEND;
END^

SET TERM ; ^