Проигрывать MPEG файл в Delphi-программе

Если в системе Windows MMSystem установлен декодер MPEG - используя компонент TMediaPlayer

procedure TForm1.Button1Click(Sender: TObject);
begin
  with MediaPlayer1 do
  begin
    Filename := 'C:Downloaddelphiworld.mpg';
    Open;
    Display := Panel1;
    DisplayRect := Panel1.ClientRect;
    Play;
  end;
end;

Другое по теме:

• Как заставить TMediaPlayer проигрывать одно и тоже бесконечно (AVI например)
• Как получить картинку с видео источника
• Как проиграть AVI на полный экран