anchor.diff:  			FReady: Boolean;
         procedure AddChannelMessage(const Channel, Message: string);
         procedure ConfigureIdIRC;
  +      function GetUserName: string;
         procedure MessageToChannel(const Message: string);
         procedure ReadConfig;
         procedure OnStatus(ASender: TObject; const AStatus: TIdStatus; const AStatusText: string);
  
positive.code:       property OnUserJoined: TOnUserEvent read FOnUserJoined write FOnUserJoined;
        property OnUserLeft: TOnUserEvent read FOnUserLeft write FOnUserLeft;
        property Ready: Boolean read FReady;
        procedure AutoJoinChannels;
        procedure Connect;
        procedure Disconnect;
        procedure JoinChannel(const Name: string);
        procedure SendMessage(const Message: string);
        procedure LeaveCurrentChannel;
        constructor Create;
        destructor Destroy; override;
      end;
  
negative.code:   SL := FOnChannelJoined(Name);
    FChannels.AddObject(Name, SL);
    FIdIRC.Join(Name);
  end;
  
  procedure TIRC.LeaveChannel(const Name: string);
  begin
    FIdIRC.Part(Name);
  end;
  
  procedure TIRC.SendMessage(const Message: string);
  