anchor.diff:  
   procedure TIRC.OnStatus(ASender: TObject; const AStatus: TIdStatus; const AStatusText: string);
   begin
  -  FLog.Add(AStatusText);
  +  if AStatus = hsConnected then
  +    FReady := True;
  +
  +  FServerMessage := AStatusText;
  +  TIdSync.SynchronizeMethod(@SendServerMessage);
   end;
   
   procedure TIRC.OnNotice(ASender: TIdContext; const ANicknameFrom, AHost, ANicknameTo, ANotice: String);
  
positive.code:       FOnUserLeft: TOnUserEvent;
        FOnMessageReceived: TOnMessageReceived;
        FAutoJoinChannels: TStrings;
        procedure ConfigureIdIRC;
        function FormatarMensagem(const NickName, Message: string): string;
        function GetUserName: string;
        function HighlightUserName(const AMessage: String): string;
        procedure MessageToChannel(const Message: string);
        procedure MessageReceived(const Channel, Message: string);
        procedure ReadConfig;
  
negative.code: 
  procedure TIRC.OnNickNameListReceive(ASender: TIdContext; const AChannel: String; ANicknameList: TStrings);
  begin
    FChannel := AChannel;
    FNickNameList := ANicknameList;
    TIdSync.SynchronizeMethod(@SendNickNameListReceived);
  end;
  
  procedure TIRC.OnJoin(ASender: TIdContext; const ANickname, AHost, AChannel: String);
  