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