anchor.diff:  
   
   function TKMNetPlayersList.ColorAvailable(aIndex: Integer): Boolean;
  -var I: Integer;
  +var
  +  I: Integer;
   begin
     Result := True;
     if aIndex = 0 then Exit;
  
positive.code: 
  
  function TKMNetPlayersList.GetConnectedPlayersCount: Integer;
  var I: Integer;
  begin
    Result := 0;
    for I := 1 to fCount do
  
negative.code: end;
  
  
  function TKMNetPlayersList.AllReadyToPlay: Boolean;
  var
    I: Integer;
  begin
    Result := True;
    for I := 1 to fCount do
      if fNetPlayers[I].Connected and fNetPlayers[I].IsHuman then
        Result := Result and fNetPlayers[I].ReadyToPlay;
  