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