anchor.diff:  function StripFileURLPrefix( const AStr : WideString ) : wideString;
   const
     FILEPREFIX = 'file:';
  -begin
  +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
  -    delete( result, 1, length( FILEPREFIX ));
  -    while ( result <> '' ) and ( result[1] = '/' ) do
  -      delete( result, 1, 1 );
  +    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
   
  
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;
  
  