某俱樂部實行會員注冊收費，每位會員按整月每月收費500元整。但是對注冊時期較長的會員有價格優(yōu)惠。規(guī)則如下：注冊6個月以下（含6個月）每月收費金額不變，6至12個月實行9折收費，12個月以上（不含12個月）8折收費。編程在“注冊月數(shù)”框中輸入會員欲注冊的月數(shù)，單擊“計算”按鈕后在“應(yīng)收金額”框中顯示應(yīng)收會費總錢數(shù)。單擊“結(jié)束”按鈕結(jié)束程序。
本程序設(shè)計界面及運行界面如下：

請編寫單擊“計算”（Button1）按鈕的事件處理程序。

本程序由主窗體form1和子窗體form2組成，設(shè)計界面如下圖所示：

主窗體上建立的對象有Panel1、Animate1、Button1（加載AVI文件）、Button2（退出）、Button3（播放）、Button4（停止）和OpenDialog1。 
子窗體上建立的對象有Label1、BitBtm1（Yes）、BitBtm2（No）。 
單擊“加載AVI文件”按鈕，會彈出打開文件對話框。用戶指定一個.avi的文件后，動畫文件加載到Animate1顯示區(qū)中。單擊“播放”按鈕可播放動畫，單擊“停止”按鈕可停止播放。 
單擊“退出”按鈕，會彈出確認對話框（Form2）。如果用戶按“Yes”鍵，程序結(jié)束；如果按“No”鍵，返回主窗體。 
下面是Unit1的代碼部分，請在下劃線處完成程序填空。