用delphi 代码显示媒体当前播放的长度 怎么编啊?

我是新手哦..我要编个播放器!在我编状态栏中时候 他提示我StatusBar.Panels[0].Text:=''; 这句话错误.这句话是用来显示媒体当前播放长度的. 麻烦那位delphi高手帮帮小弟哦!
就在这个代码中提示错误的:
procedure TMainForm.SBtnOpenFileClick(Sender: TObject);
begin
MPlayer.Close;
if DgOpen.Execute then
begin
With MPlayer do
begin
FileName:=DgOpen.FileName;
try
Open;

Self.Caption:='媒体播放器 - '+DgOpen.FileName;
TimeFormat:=tfMilliseconds;
TBLength.Min:=0;
TBLength.Max:=Length div 1000; //以秒为单位
TBLength.Frequency:=TBLength.Max div 50;
TBLength.Position:=0;

SetButtons(True);

StatusBar.Panels[0].Text:='';
StatusBar.Panels[1].Text:='曲目: '+IntToStrTime(TBLength.Max);
StatusBar.Panels[2].Text:='已打开';
except
ShowMessage(

delphi代码怎么用 DELPHI代码 delphi代码 delphi如何在memo中显示HTML代码？ delphi等窗口完全显示后执行一段代码 有关用delphi编代码的问题 delphi代码转为VB代码 解释一下这些DELPHI代码. delphi杀进程代码 delphi代码错误了。