anchor.diff:      Label2: TTntLabel;
       Edit_TextURL: TTntEdit;
       Button_Modify: TTntButton;
  +    procedure CheckURL(OnlyEnsureLink: boolean);
       procedure Edit_URLExit(Sender: TObject);
       procedure Button_ModifyClick(Sender: TObject);
       procedure FormShow(Sender: TObject);
  
positive.code:      InterpretedUrl:= url;
       URLType:= TypeURL( InterpretedUrl, KNTlocation);
       lastChar:= url[length(url)];
       if (URLType = urlOTHER) or (( URLType in [urlHTTP, urlHTTPS]) and ( lastChar in [')', ']'] ))  then
           // Si el texto es igual a la URL, y no es de los reconocidos por el control RichEdit (http://msdn.microsoft.com/en-us/library/windows/desktop/bb787991%28v=vs.85%29.aspx)
           // no lo tratar como hiperlenlace
           // Tambin deja sin reconocer el ltimo carcter si ste es ) o ], como mnimo
          url:= '<' + url + '>'
       else
           if url <> interpretedUrl then begin
              Edit_URL.Text:= interpretedUrl;
           end;
  
      Edit_TextURL.Text:= url;
   end;
  end;
  
  procedure TForm_URLAction.Label_URLClick(Sender: TObject);
  begin
  
negative.code: procedure TForm_URLAction.Button_ModifyClick(Sender: TObject);
  begin
       if Edit_TextURL.Text = '' then
          CheckURL(true);
       URLAction := urlCreateOrModify;
  end;
  
  