MessageDlg(inttostr(Workbook.Sheets[1].Shapes.Count) + ' Shapes on Worksheet one.', mtInformation, [mbOk], 0);