MessageDlg(inttostr(Worksheet.HPageBreaks.Count) + ' horizontal page breaks',
           mtInformation, [mbOk], 0);