anchor.diff:    Memo.Cursor := crDefault;
   end;
   
  -procedure TMainForm.AddChannelToList(const Canal: string);
  +procedure TMainForm.AddChannelToList(const Channel: string);
   begin
     TreeViewUsers.BeginUpdate;
     try
  -    TreeViewUsers.Items.Add(nil, Canal);
  +    TreeViewUsers.Items.Add(nil, Channel);
       TreeViewUsers.AlphaSort;
     finally
       TreeViewUsers.EndUpdate;
     end;
   end;
   
  -procedure TMainForm.LeaveChannel(const Channel: string);
  -begin
  -  FIRC.LeaveChannel(Channel);
  +procedure TMainForm.CloseChannel(const Channel: string);
  +begin
     CloseChannelTab(Channel);
     RemoveChannelFromList(Channel);
   end;
  
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);
  