MediaPlayer1.FileName:=listbox1.Items.Strings[k];
label3.Caption:=listbox1.Items.Strings[k];
MediaPlayer1.Open;
Mediaplayer1.TimeFormat:=tfMilliseconds;
Thelength := Mediaplayer1.Length;
label1.Caption:= IntToStr(thelength div 60000 div 60)+':'+IntToStr(thelength div 60000 mod 60)+':'+IntToStr(thelength div 1000 mod 60);
d1:=(thelength div 60000 div 60 *3600)+(thelength div 60000 mod 60 *60)+(thelength div 1000 mod 60);
d2:=0;
mediaplayer1.Display:=Panel5;
panel5.Realign;
mediaplayer1.DoubleBuffered:=true;
mediaplayer1.DisplayRect:=rect(0,0,panel5.Width,panel5.Height);
timer2.Enabled:=true;
RealAudio1.Visible:=false;
mediaplayer1.Play;