anchor.diff:  var
     myNote : TTabNote;
     myTreeNode : TTreeNTNode;
  -  EditControl: TRxRichEdit;
     FindDone, Found : boolean;
     PatternPos : integer;
     SearchOrigin : integer;
  
positive.code: 
              if PatternPos < 0 then begin
                 GetNextNode;                 // Podr actualizar FindDone
                 if (not FindDone) and (not assigned(myTreeNode)) then
                    GetNextNote()
              end;
              Application.ProcessMessages;    // Para permitir que el usuario cancele (UserBreak)
  
  
negative.code:         end;
        end
        else
           DoMessageBox(WideFormat( STR_02, [FindOptions.Pattern] ), STR_12, 0);
  
      except
        on E : Exception do
           messagedlg( E.Message, mtError, [mbOK], 0 );
      end;
  
    finally
      ActiveNote:= oldActiveNote;
      UpdateNoteDisplay;
  
      // restore previous FindOptions settings
      Form_Main.List_ResFind.Items.EndUpdate;
  