本程序设计界面及运行界面如下图所示。

该程序的功能是：用户在界面上的两个编辑框（Edit1、Edit2）内分别输入两个正整数M和N（M<N），单击“计算”按钮（Button1），程序求出M~N之间所有能被3整除的数，并在Memo1对象中依次显示。
请编写单击“计算”按钮的事件处理程序。

本程序由主窗体form1和子窗体form2组成，设计界面如下图所示：

主窗体上建立的对象有Image1、Button1（加载图片）、Button2（退出）、OpenDialog1。子窗体上建立的对象有Label1、BitBtm1（Yes）、BitBtm2（No）。
单击“打开文件”按钮（Button1），会弹出打开文件对话框。用户指定一个图像文件后，图像加载到Image1显示区中。
单击“退出”按钮，会弹出确认对话框（Form2）。如果用户按“Yes”键，程序结束；如果按“No”键，返回主窗体。
下面是Unit1的代码部分，请在下划线处完成程序填空。
implementation
{$R*.dfm} uses
（①）
procedure TForm1.Button1Click(Sender:TObject);//加载图片
begin
if（②）then
Image1.Picture.LoadFromFile(③)
end
procedure TForm1.Button2Click(Sender: TObject)//退出
begin
if（④）=mrYes 
then（⑤）
end;
end.

本程序设计界面及运行界面如下图所示

该程序的功能是：用户在界面上的两个编辑框（Edit1、Edit2）内分别输入两个正整数M和N（M<N），单击“计算”按钮（Button1），程序求出M~N之间所有能被3整除的数，并在Memo1对象中依次显示。
请编写单击“计算”按钮的事件处理程序。

输入一个数字，程序判断如下情况：如果能被3整除但同时不能被5整除，显示“该数只能被3整除”；如果只能被5整除但是不能被3整除，显示“该数只能被5整除”，若被3整除同时被5整除，显示“该数可以同时被3、5整除”。
本程序设计界面及运行界面如下：

请编写单击“判断”（Button1）按钮的事件处理程序。

某厂对使用的原材料钢筋进行用前检测。要求输入钢筋的直径进行检查。标准品为10.0毫米直径。实际产品的直径与标准品之间的误差为±0.5毫米以下（含0.5毫米）的都认为是合格的，提示“检测为合格品”。否则提示“检测为废品”。
本程序设计界面及运行界面如下：

请编写单击“检测”（Button1）按钮的事件处理程序。

某俱乐部实行会员注册收费，每位会员按整月每月收费500元整。但是对注册时期较长的会员有价格优惠。规则如下：注册6个月以下（含6个月）每月收费金额不变，6至12个月实行9折收费，12个月以上（不含12个月）8折收费。编程在“注册月数”框中输入会员欲注册的月数，单击“计算”按钮后在“应收金额”框中显示应收会费总钱数。单击“结束”按钮结束程序。
本程序设计界面及运行界面如下：

请编写单击“计算”（Button1）按钮的事件处理程序。

本程序由主窗体form1和子窗体form2组成，设计界面如下图所示：

主窗体上建立的对象有Panel1、Animate1、Button1（加载AVI文件）、Button2（退出）、Button3（播放）、Button4（停止）和OpenDialog1。 
子窗体上建立的对象有Label1、BitBtm1（Yes）、BitBtm2（No）。 
单击“加载AVI文件”按钮，会弹出打开文件对话框。用户指定一个.avi的文件后，动画文件加载到Animate1显示区中。单击“播放”按钮可播放动画，单击“停止”按钮可停止播放。 
单击“退出”按钮，会弹出确认对话框（Form2）。如果用户按“Yes”键，程序结束；如果按“No”键，返回主窗体。 
下面是Unit1的代码部分，请在下划线处完成程序填空。