anchor.diff:  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);
  
positive.code: end;
  
  procedure TMainForm.OnUserLeft(const Channel, User: string);
  var
    ChannelNode: TTreeNode;
  begin
    if User = FIRC.UserName then
      Exit;
  
    ChannelNode := TreeViewUsers.Items.FindTopLvlNode(Channel);
    ChannelNode.FindNode(User).Free;
  end;
  
  constructor TMainForm.Create(TheOwner: TComponent);
  
negative.code:     procedure PageControlChange(Sender: TObject);
    private
      FIRC: TIRC;
      procedure AddChannelToList(const Channel: string);
      procedure CloseChannel(const Channel: string);
      procedure CloseChannelTab(const Channel: string);
      procedure ConfigureMemo(var Memo: TMemo);
      procedure MostrarConfig;
      function OnChannelJoined(const Nome: string): TStrings;
      procedure OnNickListReceived(const Channel: string; List: TStrings);
  