anchor.diff:    else
     begin
       DoMessageBox(WideFormat( STR_02, [Text_To_Find] ), STR_12, 0);
  +    if assigned(Form_Replace) then
  +       Form_Replace.SetFocus;
     end;
   
   end; // ReplaceEventProc
  
positive.code:     else
      begin
        DoMessageBox(WideFormat( STR_02, [Text_To_Find] ), STR_12, 0);
      end;
    finally
      Is_Replacing := false;
  
negative.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
         else if assigned(Form_Replace) then
            Form_Replace.SetFocus;
      end;
  
      UserBreak := false;
  