anchor.diff:    Result := Format(MessageFormat, [NickName, Message]);
   end;
   
  +function TIRC.GetConnected: Boolean;
  +begin
  +  Result := FIdIRC.Connected;
  +end;
  +
   function TIRC.GetUserName: string;
   begin
     Result := FIdIRC.UsedNickname;
  
positive.code:       property OnUserParted: TOnUserEvent read FOnUserLeft write FOnUserLeft;
        property OnMessageReceived: TOnMessageReceived read FOnMessageReceived write FOnMessageReceived;
        property UserName: string read GetUserName;
        procedure AutoJoinChannels;
        procedure Connect;
        procedure Disconnect;
  
negative.code:       procedure ConfigureEncoding;
        procedure ConfigureIdIRC;
        function FormatarMensagem(const NickName, Message: string): string;
        function GetConnected: Boolean;
        function GetUserName: string;
        function HighlightUserName(const AMessage: String): string;
        function IsInputCommand(const Message: string): Boolean;
  