anchor.diff:      procedure OnUserLeft(const Channel, User: string);
       function NovoCanal(const Canal: string): TStrings;
       procedure RemoveChannelFromList(const Channel: string);
  +    procedure RemoveUserFromChannelList(const User: string; const Channel: string);
       procedure WmAfterShow(var Msg: TMessage); message WM_AFTER_SHOW;
       procedure AfterShow;
     public
  
positive.code:     procedure PageControlChange(Sender: TObject);
    private
      FIRC: TIRC;
      procedure AddChannelToList(const Canal: string);
      procedure CloseChannelTab(const Channel: string);
      procedure ConfigureMemo(var Memo: TMemo);
      procedure LeaveChannel(const Channel: string);
      procedure MostrarConfig;
      function OnChannelJoined(const Nome: string): TStrings;
      procedure OnNickListReceived(const Channel: string; List: TStrings);
  
negative.code: procedure TMainForm.RemoveChannelFromList(const Channel: string);
  begin
    TreeViewUsers.Items.FindTopLvlNode(Channel).Free;
  end;
  
  procedure TMainForm.RemoveUserFromChannelList(const User: string; const Channel: string);
  var
    ChannelNode: TTreeNode;
  begin
    ChannelNode := TreeViewUsers.Items.FindTopLvlNode(Channel);
    ChannelNode.FindNode(User).Free;
  end;
  
  procedure TMainForm.WmAfterShow(var Msg: TMessage);
  