anchor.diff:    inherited Destroy;
   end;
   
  -end.
  +end.
  
positive.code:  TreeViewUsers.AlphaSort;
  end;
  
  procedure TMainForm.CloseChannel(const ChannelName: string);
  var
    Channel: TChannel;
  begin
    Channel := FChannelList.ChannelByName(ChannelName);
  
    if Channel = nil then
      Exit;
  
    Channel.Node.Free;
    Channel.Tab.Free;
    FChannelList.Extract(Channel).Free;
  end;
  
  procedure TMainForm.PageControlChange(Sender: TObject);
  begin
    if PageControl.ActivePage = TabServer then
  
negative.code:     procedure MostrarConfig;
      procedure OnNickListReceived(const ChannelName: string; List: TStrings);
      procedure OnUserJoined(const ChannelName, Nick: string);
      procedure OnMessageReceived(const Channel, Message: string; OwnMessage: Boolean);
      procedure OnChannelJoined(const ChannelName: string);
      procedure UpdateNodeText(Node: TObject; AText: string);
  