WindowsMediaPlayer控件如何判断文件播放结束啊?(50分)

WindowsMediaPlayer控件如何判断文件播放结束啊?
问题入上:在坛子中找到这个帖子,他是这么说的:
procedure TForm1.WindowsMediaPlayer1PlayStateChange(Sender: TObject;
NewState: Integer);
begin
NewState:=1; //这时为结束
end;
但是我还是不明白.
OnPlayStateChang是WindowsMediaPlayer的一个函数,这个函数的参数是什么?,他这是不是自定义一个函数?
我用这中方法试过:
Source_Long:=WindowsMediaPlayer1.currentMedia.duration; Current_Position:=WindowsMediaPlayer1.controls.currentPosition;
end;

procedure TForm11.Timer11Timer(Sender: TObject);
begin
if(Current_Position=Source_Long) then
begin
// WindowsMediaPlayer1.OnPlayStateChange;//这个函数如何用
WindowsMediaPlayer1.close ;
WindowsMediaPlayer1.FreeOnRelease;

Source_Longouble;
Current_Positionouble;
这个方法中我用了一个计时器,运行时可以进入程序界面,但是到包含这个计时器的界面是就出现代码编写框了!
希望强人给出详细点的说明和例子!解决给分