Listboxに曲名を表示してそれをダブルクリックすると再生
一曲演奏終了するとListBoxの次の曲を再生という風にしたいのですが

void __fastcall TForm1::MediaPlayer1Notify(TObject *Sender)
{
ListBox1->ItemIndex=ListBox1->ItemIndex+1;
Play();
}
//----------------------------------------------------
void __fastcall TForm1::Play()
{
TIniFile *ini;
ini = new TIniFile(ChangeFileExt(Application->ExeName, ".ini"));
tora=ListBox1->ItemIndex+1;
MediaPlayer1->FileName = ini->ReadString("a",tora,"hoge");

Label2->Caption=MediaPlayer1->FileName;
Label2->Hint=MediaPlayer1->FileName;

MediaPlayer1->FileName=CDirectoryOutline1->Directory+"\\"+MediaPlayer1->FileName;

delete ini;

MediaPlayer1->Close();
MediaPlayer1->Open();
MediaPlayer1->Play();
}


この状態だと最初に何か曲名をダブルクリックしてその曲の演奏が終了したあと次の曲は再生されるのですが、演奏中に別な曲名をダブルクリックするとエラーが帰ってきます。
演奏中に他の曲をダブルクックしたらその曲を演奏して、またその曲の演奏が終了したら次の曲を演奏という風にしたいのですが…どこをどう直せばいいのでしょうか。
詳しい方教えてくださいm（＿＿）m