anchor.diff:    FIdIRC.OnServerWelcome := nil;
     FIdIRC.OnRaw := nil;
     FIdIRC.OnQuit := nil;
  +  FIdIRC.OnTopic := nil;
   end;
   
   function TIRC.RemoveOPVoicePrefix(const Channel: string): string;
  
positive.code:       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);
        procedure RemoveEvents;
        function RemoveOPVoicePrefix(const Channel: string): string;
        procedure Say(const Channel, Msg: string);
  
negative.code: end;
  
  procedure TIRC.OnJoin(ASender: TIdContext; const ANickname, AHost, AChannel: String);
  var
    Topic: string;
  begin
    if ANickname = FIdIRC.UsedNickname then
    begin
  