guardar imagen mediante un IBStoredProc

[luisg]

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;