anchor.diff:  
     if Str=UiOps.HotkeyFindDialog then
     begin
  -    FReplace:= false;
  +    IsReplace:= false;
       UpdateState;
       key:= 0;
       exit;
  
positive.code: 
    if Str=UiOps.HotkeyReplaceDialog then
    begin
      FReplace:= true;
      UpdateState;
      key:= 0;
      exit;
  
negative.code: begin
    if FReplace=AValue then Exit;
    FReplace:= AValue;
  
    //in find mode: focus input, because old focused control maybe hidden now
    if not FReplace then
      if edFind.CanFocus then
        edFind.SetFocus;
  
    UpdateState;
  end;
  
  