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