anchor.diff:        // o incluso continuar buscando desde el punto de partida, de manera cclica.
   
         repeat
  -            PrepareEditControl;
  +            PrepareEditControl(myNote, myTreeNode);
   
               PatternPos := EditControl.FindText(
                 Text_To_Find,
  
positive.code:         end;
        end
        else
        begin
          DoMessageBox(WideFormat( STR_02, [FindOptions.Pattern] ), STR_12, 0);
        end;
  
      except
        on E : Exception do
        begin
          messagedlg( E.Message, mtError, [mbOK], 0 );
        end;
      end;
    finally
      ActiveNote:= oldActiveNote;   // [dpv]
      UpdateNoteDisplay;  // [dpv]
  
      // restore previous FindOptions settings
      Form_Main.List_ResFind.Items.EndUpdate;
  
negative.code: 
              if PatternPos < 0 then begin
                 GetNextNode;                 // Podr actualizar FindDone
                 while (not FindDone) and (not assigned(myTreeNode)) do begin
                     GetNextNote();
                     if (myNote.Kind <> ntTree) then break;
                 end;
              end;
              Application.ProcessMessages;    // Para permitir que el usuario cancele (UserBreak)
  
  