anchor.diff:        procedure ConfigureEvents;
         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;
  
positive.code:   Result := Format(MessageFormat, [FormatDateTime(ShortTimeFormat, Now), NickName, Message]);
  end;
  
  function TIRC.GetConnected: Boolean;
  begin
    Result := FIdIRC.Connected;
  end;
  
  function TIRC.GetUserName: string;
  begin
    Result := FIdIRC.UsedNickname;
  
negative.code: procedure TIRC.HandleIdException(E: EIdException);
  begin
    MessageBox(E.Message);
  end;
  
  procedure TIRC.Connect;
  begin
    if IsConnected then
       Disconnect;
  
    ConfigureEvents;
  