本程序由主窗体forml和子窗体form2组成，设计界面如下图所示: 主窗体上建立的对象有Imagel.

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

主窗体上建立的对象有Imagel. Buttonl(加载图片),Button2(退出)、OpenDiaiogl。

子窗体上建立的对象有Labell. BitBtml(Yes),BitBtm2(No)

单云“加载图片”按钮，会弹出打开文件对话框。用户指定一个图像文件后，图像加载到

Imagel显示区中。

单击“退出”按钮，会弹出确认对话框(Form2)。如果用户按“Yes”键，程序结束;如果按

"No"键，返回主窗体。

下面是Unitl的代码部分，请在下划线处完成程序填空。

__________________________________________________________________________________

implementation

($R * . dfm}

uses①______;

procedure TForml. ButtonlClick (Sender: TObject);

begin

if②_______________________then

Imagel. Picture. LoadFromFile(③______________________)

end;

procedure TForml. Buttot.2Click (Sender: TObject);

begin

if④_________________________= mrYes then

⑤_____________;

end;

end.

___________________________________________