Глючит MediaPlayer или я что-то не то делаю?

[TUberwer]

Привет, я делаю программу, которая будет повторять выбранную запись, через интервал, в течении определенного времени. Пользователь может выбрать запись, задать интервал ComboBox'ом, и задать в течении какого времени будет идти повторение(тоже ComboBox'ом).
Все работает вроде, только вот работает через раз, бывает поставлю в течении 5 минут, и все ок работает, а бывает ставлю, оно работает минуты 2, и больше не воспроизводится, хотя время еще не вышло(когда выходит время, то на Panel1 надпись появляется). Переписывал код разными способами, но не помогло. Почему такое может быть?

// TimerFraza - таймер для интервала
 // TimerVremya - таймер времени, в течении которого идет воспроизведение
 // Button4 - кнопка старта

procedure TForm1.FormCreate(Sender: TObject);
begin
MediaPlayer1.Notify := True;
MediaPlayer1.OnNotify := MediaPlayer1Notify;
end;

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
with Sender as TMediaPlayer do
   begin
   if(Mode = mpStopped) then
   begin
    case TimerVremya.Enabled of
      True : TimerFraza.Enabled := True;
      end;
     end;
     Notify := True;
   end;
end;

procedure TForm1.TimerFrazaTimer(Sender: TObject);
begin

MediaPlayer1.Stop;
MediaPlayer1.Play;
Panel1.Caption := 'TimerFraza.Enabled := True';
TimerFraza.Enabled := False;

end;


procedure TForm1.ComboBox1Change(Sender: TObject);
var
a : Integer;
begin
a := StrToInt(Form1.ComboBox1.Text);
Form1.TimerFraza.Interval := a*1000;
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
var
b : Integer;
begin
b := StrToInt(Form1.ComboBox2.Text);
Form1.TimerVremya.Interval := b*60000;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
TimerVremya.Enabled := True;
MediaPlayer1.FileName := OpenDialog1.FileName;
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

procedure TForm1.TimerVremyaTimer(Sender: TObject);
begin
Panel1.Caption := 'Time is over';
TimerVremya.Enabled := False;

end;

[TUberwer]

никто не знает?

[TUberwer]

или может делать не на mediaplayer? на чем тогда легче всего это сделать?

[саша40]

Сообщение от TUberwer

или может делать не на mediaplayer? на чем тогда легче всего это сделать?

Взять и выбрасить TMediaPlayer на помойку! Используй bass.dll или ваще DirectSound и ActiveX.

[grominfo]

Сообщение от саша40

Взять и выбрасить TMediaPlayer на помойку! Используй bass.dll или ваще DirectSound и ActiveX.

Для его задачи использовать dll нерационально. Чтобы просто проиграть звук, можно использовать функции модуля mmsystem. Можно проигрывать по кругу, один раз и.т.д. В общем юзай функцию playsound модуля mmsystem.

ТЫЦ