TMediaPlayer проглатывает начало файла

[Хыиуду]

Ситуация такая: в программе должны непрерывным потоком проигрываться рандомно выбираемые звуковые файлы продолжительностью около секунды-двух каждый в формате mp3. Проблема в том, что иногда при проигрывании обрезается несколько долей секунды в начале файла. Даже при проигрывании одного и того же файла несколько раз подряд - иногда обрезается, иногда нет
Проигрывается так:
[syntax=Delphi]
s:=get_next_file; //Получаем имя следующего файла для проигрывания
Form1.MP1.FileName:=s;
Form1.MP1.Open;
repeat
Form1.MP1.Play;
repeat until Form1.MP1.Mode<>mpPlaying;
s:=get_next_file;
Form1.MP1.FileName:=s;
application.ProcessMessages;
Form1.MP1.Open;
repeat until Form1.MP1.Mode<>mpPlaying;
until false;
[/syntax]

[Duncon]

Эта проблема размера буферов при проигрывании потоковых данных, думаю у медиаплеера они огромные из-за этого режет..
Найди стороннюю библиотеку, для проигрывания мп3.

зы: Пошлый пост получился

[Хыиуду]

Спасибо. Воспользовался New Audio Components v 2.0. Стало проглатывать конец, ну да ладно, туда записать несколько миллисекунд тишины несложно.

[TBoy]

Как создать программу по воспроизведению видео без компонента Media Player с помощью Button? Не получается!

если можно с подробным описанием!