anchor.diff:    URLAction := urlOpenNew;
   end;
   
  -
  -procedure TForm_URLAction.Edit_URLExit(Sender: TObject);
  +{
  + Revisa el campo TextURL, igualndolo al campo URL si est vaco
  + OnlyEnsureLink: Si True, slo modifica el campo si no es posible dejar nicamente el campo
  +    URL sin texto asociado (va HYPERLINK "...) al tratarse de tipo de URL no reconocido por RichEdit o
  +    tener algn problema con su ltimo carcter.
  +}
  +procedure TForm_URLAction.CheckURL(OnlyEnsureLink: boolean);
   var
     url: wideString;
     InterpretedUrl: wideString;
  -  KNTlocation: boolean;
  +  KNTlocation, EnsureLink: boolean;
     URLType: TKNTURL;
     lastChar: WideChar;
   begin
    if not Edit_TextURL.Enabled then exit;
   
    if Edit_TextURL.Text = '' then begin
  +    EnsureLink:= False;
       url:= Edit_URL.Text;
       if ( pos(STR_05, url) = 1 ) then
           delete( url, 1, length( STR_05 ));
  
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: function StripFileURLPrefix( const AStr : WideString ) : wideString;
  const
    FILEPREFIX = 'file:';
  var
    l, i, n: integer;
  begin
    // In URLs like file://192.168.1.1/..... we must preserve the prefix
    // We can eliminate it in URLs like file:///C:.....
    result := AStr;
  
    if ( pos( FILEPREFIX, wideLowerCase( result )) = 1 ) then
    begin
      i:= length( FILEPREFIX)+1;
      l:= length(result);
      n:= 0;
      while (i <= l) and ( result[i] = '/' ) do begin
          i:= i + 1;
          n:= n + 1;
      end;
  
      if (n <> 2) or ( ( l>i+1 ) and (result[i+1]=':')) then
         delete( result, 1, i-1);
    end;
  end; // StripFileURLPrefix
  
  