anchor.diff:      procedure MostrarConfig;
       procedure OnNickListReceived(const ChannelName: string; List: TStrings);
       procedure OnUserJoined(const ChannelName, Nick: string);
  -    procedure OnUserParted(const Channel, User: string);
       procedure OnMessageReceived(const Channel, Message: string; OwnMessage: Boolean);
       procedure OnChannelJoined(const ChannelName: string);
       procedure UpdateNodeText(Node: TObject; AText: string);
  
positive.code:   FIRC.OnMessageReceived := @OnMessageReceived;
    FIRC.OnNickListReceived := @OnNickListReceived;
    FIRC.OnUserJoined := @OnUserJoined;
    FIRC.OnUserParted := @OnUserParted;
    FIRC.OnChannelJoined := @OnChannelJoined;
    FIRC.OnShowPopup := @OnShowPopup;
  
  
negative.code:   User := TUser.Create(Nick);
    Channel.Users.Add(User);
    AddUserToTreeView(User, Channel);
  end;
  
  constructor TMainForm.Create(TheOwner: TComponent);
  