anchor.diff:    Result := FIdIRC.UsedNickname;
   end;
   
  +function TIRC.HighlightUserName(const AMessage: String): string;
  +begin
  +  Result := StringReplace(AMessage, UserName, '<' + UserName + '>', [])
  +end;
  +
   procedure TIRC.AddChannelMessage(const Channel, Message: string);
   begin
     (FChannels.Objects[FChannels.IndexOf(Channel)] as TStrings).Add(Message);
  
positive.code:       procedure AddChannelMessage(const Channel, Message: string);
        procedure ConfigureIdIRC;
        function GetUserName: string;
        procedure MessageToChannel(const Message: string);
        procedure ReadConfig;
        procedure OnStatus(ASender: TObject; const AStatus: TIdStatus; const AStatusText: string);
  
negative.code: end;
  
  procedure TIRC.OnPrivateMessage(ASender: TIdContext; const ANickname, AHost, ATarget, AMessage: String);
  var
    Mensagem: string;
  begin
    Mensagem := HighlightUserName(AMessage);
    AddChannelMessage(ATarget, '<' + ANickname +'>' + ': ' + AMessage);
  end;
  
  