Закрытие приложения после воспроизведения

[boostman]

Итак есть MediaPlayer и AVI файл. Вопрос: Как сделать так чтобы при окончании воспроизведения закрывалось приложение?

[ОДИНОЧЕСТВО В СЕТИ]

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
 with Sender as TMediaPlayer do
   if NotifyValue = nvSuccessful
     then begin ShowMessage('Воспроизведение окончено!');application.terminate;end;
end;

[boostman]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
 with Sender as TMediaPlayer do
   if NotifyValue = nvSuccessful
     then begin ShowMessage('Воспроизведение окончено!');application.terminate;end;
end;

Спасибо!!!