anchor.diff:    FNickName := ANickname;
     TIdSync.SynchronizeMethod(@SendUserJoined);
   
  -  SendNotice(StrJoined + ANickname + ' - ' + AHost + ' - ' + AChannel);
  +  SendServerMessage(StrJoined + ANickname + ' - ' + AHost + ' - ' + AChannel);
   end;
   
   procedure TIRC.OnLeave(ASender: TIdContext; const ANickname, AHost, AChannel, APartMessage: String);
  
positive.code:   if ANickname = UserName then
       Exit;
  
    SendNotice(StrParted + ANickname + ' - ' + AChannel + ': ' + APartMessage);
  end;
  
  procedure TIRC.OnQuit(ASender: TIdContext; const ANickname, AHost, AReason: String);
  
negative.code: 
  procedure TIRC.OnMOTD(ASender: TIdContext; AMOTD: TStrings);
  begin
  
    FServerMessages := AMOTD;
    TIdSync.SynchronizeMethod(@SendServerMessage);
  end;
  