anchor.diff:    FIdIRC.OnPrivateMessage:= @OnPrivateMessage;
     FIdIRC.OnNicknamesListReceived:= @OnNickNameListReceive;
     FIdIRC.OnJoin := @OnJoin;
  -  FIdIRC.OnPart:= @OnLeave;
  +  FIdIRC.OnPart:= @OnPart;
     FIdIRC.OnServerWelcome := @OnWelcome;
     FIdIRC.OnRaw := @OnRaw;
     FIdIRC.OnQuit := @OnQuit;
  
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:       procedure OnPrivateMessage(ASender: TIdContext; const ANickname, AHost, ATarget, AMessage: String);
        procedure OnNickNameListReceive(ASender: TIdContext; const AChannel: String; ANicknameList: TStrings);
        procedure OnJoin(ASender: TIdContext; const ANickname, AHost, AChannel: String);
        procedure OnPart(ASender: TIdContext; const ANickname, AHost, AChannel, APartMessage: String);
        procedure OnQuit(ASender: TIdContext; const ANickname, AHost, AReason: String);
        procedure OnWelcome(ASender: TIdContext; const AMsg: String);
        function RemoveOPVoicePrefix(const Channel: string): string;
  