anchor.diff:  
   procedure TfmFind.FormShow(Sender: TObject);
   begin
  -  UpdateSize;
  +  UpdateFormHeight;
     UpdateFonts;
     FixFormPositionToDesktop(Self);
     OnResize(Self);
  
positive.code:   UpdateState;
  end;
  
  procedure TfmFind.UpdateSize;
    //
    function MaxY(C: TControl): integer;
    var
  
negative.code:     FBinaryMode: boolean;
      procedure Localize;
      procedure DoOnChange;
      procedure UpdateFormHeight;
      procedure UpdateState;
      procedure UpdateFonts;
      procedure UpdateFocus(AFindMode: boolean);
  