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