anchor.diff:      procedure Army_ActivateControls(aActive:boolean);
       procedure Army_HideJoinMenu(Sender:TObject);
       procedure Army_Issue_Order(Sender:TObject);
  +    procedure Unit_Dismiss(Sender:TObject);
       procedure House_WoodcutterChange(Sender:TObject);
       procedure House_BarracksUnitChange(Sender:TObject; AButton:TMouseButton);
       procedure House_Demolish(Sender:TObject);
  
positive.code: var Commander: TKMUnitWarrior;
  begin
    if fPlayers.Selected = nil then exit;
    if not (fPlayers.Selected is TKMUnitWarrior) then exit;
  
    Commander := TKMUnitWarrior(fPlayers.Selected).GetCommander;
  
negative.code:   end;
  end;
  
  procedure TKMGamePlayInterface.Unit_Dismiss(Sender:TObject);
  begin
    if fPlayers.Selected = nil then exit;
      if not (fPlayers.Selected is TKMUnit) then exit;
  
      if Sender=Button_Unit_DismissYes then begin
        //DISMISS UNIT
        AskDismiss:=false;
        ShowUnitInfo(nil, false); //Simpliest way to reset page and ShownUnit
        SwitchPage(nil); //Return to main menu after dismissing
      end else begin
        AskDismiss:=false;
        ShowUnitInfo(TKMUnit(fPlayers.Selected), false);  //Cancel and return to selected unit
      end;
  end;
  
  procedure TKMGamePlayInterface.Army_HideJoinMenu(Sender:TObject);
  begin
  