anchor.diff:  /// /////////////////////////////////////////////////////////////////////////////
   
   function TRCSdClient.ModuleIndexOf(addr: Integer): Integer;
  -var i: Integer;
   begin
     Result := -1;
  -  for i := 0 to Self.modules.Count - 1 do
  +  for var i := 0 to Self.modules.Count - 1 do
       if (Self.modules[i].addr = addr) then
         Exit(i);
   end;
  
positive.code: /// /////////////////////////////////////////////////////////////////////////////
  
  procedure TRCSd.RemoveClient(conn: TIdContext);
  var i: Integer;
  begin
    for i := 0 to Self.clients.Count - 1 do
      if (Self.clients[i].connection = conn) then
      begin
        Self.clients[i].Free();
  
negative.code:   end;
    Result := Result + '|';
  
    for var port := 0 to RCSi.GetModuleOutputsCountSafe(board) - 1 do
    begin
      try
        case (RCSi.GetOutputType(board, port)) of
  