填空题 利用MediaPlayer 组件实现一个播放wav声音文件的播放器。用户可自己选择要打开的 wav文件，并在播放时有播放进度提示（如图）。首先在在窗体中添加1个MediaPlayer组件MediaPlayer1、1个标签组件Label1、2个按钮组件（“打开文件”－Button1，“退出”－Button2），1个时钟组件Timer1和1个OpenDialog组件OpenDialog1，一个gauge组件（用作播放进度显示）。进度提示条每隔0.1秒更新一次进度。将程序补充完整。 procedure TForm1.Button1Click（Sender： TObject）；  begin if OpenDialog1.Execute Then   Begin      MediaPlayer1.filename := OpenDialog1. （①） ;      Label1.（②） := OpenDialog1.filename;      MediaPlayer1.open;    //打开声音文件      MediaPlayer1. （③）    ;  //开始播放      Timer1.enabled := （④）   ;    end;  end;  procedure TForm1.Timer1Timer(Sender: TObject);  begin  Timer1.Interval :=  （⑤） ;   //每隔0.1秒更新一次进度  gauge1.maxvalue := MediaPlayer1.length;  gauge1. （⑥）   := MediaPlayer1.Position;   //更改进度  end;   procedure TForm1.Button2Click(Sender: TObject);  begin    close;  end;

填空题 在窗体上画一个名称为Command1、标题为“计算”的命令按钮；画3个文本框，名称分别为Text1、Text2和Text3；然后画4个标签，名称分别为Label1、Label2、Label3和Label4，标题分别为“操作数1”、“操作数2”、“运算结果”、“＝”符；再建立一个含有4个单选按纽的RadioGroup组件，名称为RadioGroup1，标题分别为“+”、“-”、“*”和“/”。程序运行后，在Text1、Text2中输入两个整数值，选中一个单选按钮后单击命令按钮，相应的计算结果显示在Text3，程序运行情况如图所示。请填入适当的内容，将程序补充完整。 procedureTForm1.Button1Click(Sender:TObject); var x1,x2,y:Integer;begin x1:=StrToInt(Edit1.（①）); x2:=StrToInt(Edit2.（②）); Case（③）.ItemIndexof 0:y:=x1+x2; 1:y:=x1-x2; 2:y:=x1*x2; 3:y:=x1Divx2; End; Edit3.（④）:=IntToStr(⑤); end;

判断题 时钟Timer组件的时间间隔是由Interval属性控制，该属性的计量单位是秒，即其值为1，则表示时间间隔为1秒。