anchor.diff:    FIdIRC.OnServerWelcome := @OnWelcome;
     FIdIRC.OnRaw := @OnRaw;
     FIdIRC.OnQuit := @OnQuit;
  +  FIdIRC.OnTopic := @OnTopic;
   end;
   
   function TIRC.FormatMessage(const NickName, Message: string): string;
  
positive.code: end;
  
  end.
  
  
negative.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 OnTopic(ASender: TIdContext; const ANickname, AHost, AChannel, ATopic: String);
        procedure RemoveEvents;
        function RemoveOPVoicePrefix(const Channel: string): string;
        procedure Say(const Channel, Msg: string);
  