void __fastcall TForm1::MediaPlayer1Notify(TObject *Sender)
{
// enum TMPModes { mpNotReady, mpStopped, mpPlaying, mpRecording, mpSeeking, mpPaused, mpOpen };

    AnsiString ModeStr[] = {"Not ready", "Stopped", "Playing", "Recording", "Seeking", "Paused", "Open"};
    ListBox1->Items->Add(ModeStr[MediaPlayer1->Mode]);

    if (MediaPlayer1->Mode==TMPModes()<Stop();
//        MediaPlayer1->Play();
//        MediaPlayer1->Pause();
    }
}