利用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组件，名称为RadioGroup 1，标题分别为“+”、“-”、“*”和“/”。程序运行后，在Text1、Text2中输入两个整数值，选中一个单选按钮后单击命令按钮，相应的计算结果显示在Text3，程序运行情况如图所示。请填入适当的内容，将程序补充完整。

procedure TForm1.Button1Click(Sender: TObject); 
var 
   x1,x2,y :Integer; begin 
   x1 := StrToInt(Edit1.（①）);    
     x2 := StrToInt(Edit2.（②）);    
    Case （③）.ItemIndex of    
    0: y := x1 + x2 ;    
   1: y := x1 - x2;    
   2: y := x1 * x2;     
    3: y := x1 Div x2;   
 End; 
 Edit3. （④）   := IntToStr(⑤);  
end;