anchor.diff:    Result := StringReplace(AMessage, UserName, Format(NickNameFormat, [UserName]), [])
   end;
   
  +function TIRC.IsInputCommand(const Message: string): Boolean;
  +begin
  +  Result := Pos('/', TrimLeft(Message)) = 1;
  +end;
  +
   procedure TIRC.AutoJoinChannels;
   var
     I: Integer;
  
positive.code: end;
  
  procedure TIRC.MessageToChannel(const Message: string);
  begin
    FIdIRC.Say(FActiveChannel, Message);
    MessageReceived(FActiveChannel, FormatarMensagem(UserName, Message))
  end;
  
  
negative.code: 
  procedure TIRC.OnStatus(ASender: TObject; const AStatus: TIdStatus; const AStatusText: string);
  begin
    if AStatus = hsConnected then
      FReady := True;
  
    FServerMessage := AStatusText;
    TIdSync.SynchronizeMethod(@SendServerMessage);
  end;
  
  procedure TIRC.OnNotice(ASender: TIdContext; const ANicknameFrom, AHost, ANicknameTo, ANotice: String);
  