anchor.diff:    SendServerMessage(StrJoined + ANickname + ' - ' + AHost + ' - ' + AChannel);
   end;
   
  -procedure TIRC.OnLeave(ASender: TIdContext; const ANickname, AHost, AChannel, APartMessage: String);
  +procedure TIRC.OnPart(ASender: TIdContext; const ANickname, AHost, AChannel, APartMessage: String);
   begin
     FChannel := AChannel;
     FNickName := ANickname;
  
positive.code:   if ANickname = UserName then
       Exit;
  
    SendServerMessage(StrParted + ANickname + ' - ' + AChannel + ': ' + APartMessage);
  end;
  
  procedure TIRC.OnQuit(ASender: TIdContext; const ANickname, AHost, AReason: String);
  
negative.code:   FIdIRC.OnPrivateMessage:= @OnPrivateMessage;
    FIdIRC.OnNicknamesListReceived:= @OnNickNameListReceive;
    FIdIRC.OnJoin := @OnJoin;
    FIdIRC.OnPart:= @OnPart;
    FIdIRC.OnServerWelcome := @OnWelcome;
    FIdIRC.OnRaw := @OnRaw;
    FIdIRC.OnQuit := @OnQuit;
  