anchor.diff:      else
       begin
         DoMessageBox(WideFormat( STR_02, [Text_To_Find] ), STR_12, 0);
  +      if assigned(Form_Replace) then
  +         Form_Replace.SetFocus;
       end;
     finally
       Is_Replacing := false;
  
positive.code:       if ( not ( UserBreak or Is_Replacing )) then
         DoMessageBox(WideFormat( STR_02, [Text_To_Find] ), STR_12, 0);
         if assigned(Form_Find) then
            Form_Find.SetFocus;
      end;
  
      UserBreak := false;
  
negative.code:   else
    begin
      DoMessageBox(WideFormat( STR_02, [Text_To_Find] ), STR_12, 0);
      if assigned(Form_Replace) then
         Form_Replace.SetFocus;
    end;
  
  end; // ReplaceEventProc
  