{
Xor bit on click (local version)
}
procedure ClickBitXorLocal(tag,XorMask:Integer);
var b:Boolean; nv:Integer;
begin
 if ClickTag=tag then begin
  b:=iSetTag(tag,iXor(iGetTag(tag),XorMask));
  b:=Voice(snd_Click);
 end;
end;
{
Xor bit on click (remote version)
}
procedure ClickBitXorRemote(tag,XorMask:Integer);
var b:Boolean; nv:Integer;
begin
 if ClickTag=tag then begin
  Click_Send(Click_Info+'NewValue='+Str(iXor(iGetTag(tag),XorMask)));
  b:=Voice(snd_Click);
 end;
end;
