anchor.diff:  
   procedure TfrmBoxerMain.PopupMenu2Popup(Sender: TObject);
   begin
  -  DebugMessages1.Visible:=(GetKeyState(VK_CONTROL) and 1)<>0;
  +  DebugMessages1.Visible:=(GetKeyState(VK_CONTROL) and $8000000)<>0;
   end;
   
   procedure TfrmBoxerMain.DebugMessages1Click(Sender: TObject);
  
positive.code: begin
    b:=not(BoxHandle1.Checked);
    BoxHandle1.Checked:=b;
    Timer1.Enabled:=b;
    ShowWindow(frmSwitchHandle.Handle,SW_HIDE);
    BoxHandleOnce1.Enabled:=not(b);
    BoxHandleOnce1.Checked:=false;
  end;
  
  procedure TfrmBoxerMain.BoxHandleOnce1Click(Sender: TObject);
  
negative.code:   inherited;
    FBoxedLength:=0;
    Application.OnActivate:=AppActivate;
    Application.OnDeactivate:=AppDeactivate;
    FFirstShow:=true;
    FDraggingTab:=-1;
    FDraggingWorkspace:=0;
  