anchor.diff:  
   procedure TfrmBoxerMain.TakeHWND;
   var
  -  i,j:integer;
  +  i,j,x,y:integer;
  +  r,r1,r2:TRect;
   begin
     if FLastHWND<>0 then
      begin
  
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:       for j:=i to FBoxedLength-1 do FBoxed[j].h:=0;
       end;
  
      x:=0;//default
      y:=0;//default
      if not GetWindowRect(FLastHWND,r) then r.Bottom:=0;
  
      if Windows.SetParent(FLastHWND,ScrollBox1.Handle)=0 then RaiseLastOSError;
  
      FBoxed[i].h:=FLastHWND;
      FBoxed[i].p1:=TPanel.Create(Self);
  