anchor.diff:  
     for i:=1 to 28 do begin
       Tmp:=TKMHouseStore(fPlayers.Selected).ResourceCount[i];
  -    if Tmp=0 then KMButton_Store[i].Caption:='-' else
  -    //if Tmp>999 then KMButton_Store[i].Caption:=float2fix(round(Tmp/10)/100,2)+'k' else
  -                  KMButton_Store[i].Caption:=inttostr(Tmp);
  -    KMImage_Store_Accept[i].Visible := TKMHouseStore(fPlayers.Selected).NotAcceptFlag[i];
  +    if Tmp=0 then Button_Store[i].Caption:='-' else
  +    //if Tmp>999 then Button_Store[i].Caption:=float2fix(round(Tmp/10)/100,2)+'k' else
  +                  Button_Store[i].Caption:=inttostr(Tmp);
  +    Image_Store_Accept[i].Visible := TKMHouseStore(fPlayers.Selected).NotAcceptFlag[i];
     end;
   end;
   
  
positive.code: procedure TKMGamePlayInterface.House_SchoolUnitRemove(Sender:TObject);
  var i:integer;
  begin
    if Sender = KMButton_School_UnitWIP then
      TKMHouseSchool(fPlayers.Selected).RemUnitFromQueue(1)
    else for i:=1 to 5 do
      if Sender = KMButton_School_UnitPlan[i] then
      begin
        TKMHouseSchool(fPlayers.Selected).RemUnitFromQueue(i+1);
        fSoundLib.Play(sfx_click); //This is done for all buttons now, see fGame.OnMouseDown
  
negative.code:   if not (fPlayers.Selected is TKMHouse) then exit;
  
    for i:=1 to 4 do begin
      if Sender = Row__Order[i].OrderRem then TKMHouse(fPlayers.Selected).ResRemOrder(i);
      if Sender = Row__Order[i].OrderAdd then TKMHouse(fPlayers.Selected).ResAddOrder(i);
    end;
  end;
  
  