anchor.diff:       InterpretedUrl:= url;
        URLType:= TypeURL( InterpretedUrl, KNTlocation);
        lastChar:= url[length(url)];
  -     if (URLType = urlOTHER) or (( URLType in [urlHTTP, urlHTTPS]) and ( lastChar in [')', ']'] ))  then
  +     if (URLType = urlOTHER) or (( URLType in [urlHTTP, urlHTTPS]) and ( lastChar in [')', ']'] ))  then begin
            // 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 + '>'
  +        url:= '<' + url + '>';
  +        EnsureLink:= True;
  +     end
        else
            if url <> interpretedUrl then begin
               Edit_URL.Text:= interpretedUrl;
            end;
   
  -    Edit_TextURL.Text:= url;
  +    if (Not OnlyEnsureLink) or (EnsureLink= True) then
  +       Edit_TextURL.Text:= url;
    end;
   end;
  +
  +procedure TForm_URLAction.Edit_URLExit(Sender: TObject);
  +begin
  +  CheckURL(false);
  +end;
  +
   
   procedure TForm_URLAction.Label_URLClick(Sender: TObject);
   begin
  
positive.code:     Label2: TTntLabel;
      Edit_TextURL: TTntEdit;
      Button_Modify: TTntButton;
      procedure Edit_URLExit(Sender: TObject);
      procedure Button_ModifyClick(Sender: TObject);
      procedure FormShow(Sender: TObject);
  
negative.code: procedure TForm_URLAction.Button_ModifyClick(Sender: TObject);
  begin
       if Edit_TextURL.Text = '' then
          CheckURL(true);
       URLAction := urlCreateOrModify;
  end;
  
  