anchor.diff:  
   procedure TIRC.OnMOTD(ASender: TIdContext; AMOTD: TStrings);
   begin
  +
     FServerMessages := AMOTD;
     TIdSync.SynchronizeMethod(@SendServerMessage);
   end;
  
positive.code:   FNickName := ANickname;
    TIdSync.SynchronizeMethod(@SendUserJoined);
  
    SendNotice(StrJoined + ANickname + ' - ' + AHost + ' - ' + AChannel);
  end;
  
  procedure TIRC.OnLeave(ASender: TIdContext; const ANickname, AHost, AChannel, APartMessage: String);
  
negative.code:       procedure SendNickNameListReceived;
        procedure SendParted;
        procedure SendQuit;
        procedure SendServerMessage; overload;
        procedure SendServerMessage(const Msg: string); overload;
        procedure SendUserJoined;
        procedure DoConnect;
        procedure MessageBox(const Msg: string);
  