anchor.diff:  procedure TMainForm.RemoveChannelFromList(const Channel: string);
   begin
     TreeViewUsers.Items.FindTopLvlNode(Channel).Free;
  +end;
  +
  +function TMainForm.RemoveOPVoicePrefix(const Username: string): string;
  +begin
  +  if Username[1] in ['@', '+'] then
  +    Result := Copy(Username, 2, MaxInt)
  +  else
  +    Result := Username;
   end;
   
   procedure TMainForm.RemoveUserFromChannelList(const User: string; const Channel: string);
  
positive.code:   if Selected = nil then
       Exit;
  
    Tab := GetTabByName(Selected.Text);
    if Tab = nil then
      Exit;
  
  
negative.code: end;
  
  function TMainForm.GetChannelTab(const Channel: string): TTabSheet;
  var
    ChannelName: string;
  begin
    ChannelName := RemoveOPVoicePrefix(Channel);
    Result := GetTabByName(ChannelName);
    if Result = nil then
      Result := NewChannelTab(ChannelName);
  end;
  
  procedure TMainForm.AddChannelToTree(const Channel: string);
  