guardar imagen mediante un IBStoredProc
 

Alguien me puede ayudar, en la linea con la flecha me marca un error en tiempo de ejecucion "usoporte feature", en la variable logo tengo almacenada una imagen que quiero poner en un parametro del IBStoredPro.

logo: TBitmap;

procedure TEmpresa.modificar;
var sp: TIBStoredProc;
begin
sp:=TIBStoredProc.Create(nil);
sp.Database:=DtMdlEstetica.DbEstetica;
sp.StoredProcName:='SP_MODIFICA_EMPRESA';
sp.Params.CreateParam(ftString, 'PI_NOMBRE', ptInput).AsString:=nombre;
sp.Params.CreateParam(ftString, 'PI_DOMICILIO', ptInput).AsString:=domicilio;
sp.Params.CreateParam(ftString, 'PI_TELEFONO', ptInput).AsString:=telefono;
sp.Params.CreateParam(ftString, 'PI_PAGINAWEB', ptInput).AsString:=paginaweb;
sp.Params.CreateParam(ftGraphic, 'PI_LOGO', ptInput).Assign(logo);<--------
sp.ExecProc;
sp.Free;
end;