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