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