anchor.diff:  end;
   
   end.
  -
  +
  
positive.code: procedure TIRC.OnWelcome(ASender: TIdContext; const AMsg: String);
  begin
    FServerMessage := AMsg;
    SendServerMessage;
  end;
  
  function TIRC.RemoveOPVoicePrefix(const Channel: string): string;
  
negative.code: procedure TIRC.OnNotice(ASender: TIdContext; const ANicknameFrom, AHost, ANicknameTo, ANotice: String);
  begin
    FServerMessage :=  Format('* Notice from %s to %s: %s ', [ANicknameFrom, ANicknameTo, ANotice]);
    TIdSync.SynchronizeMethod(@SendServerMessage);
  end;
  
  procedure TIRC.OnMOTD(ASender: TIdContext; AMOTD: TStrings);
  