В системе Windows MMSystem должен быть установлен декодер MPEG. На форму необходимо поместить компонент TMediaPlayer и TPanel. Последняя будет использоваться в качестве экрана.
procedure TForm1.Button1Click(Sender: TObject);
beginwith MediaPlayer1 dobegin
Filename := 'C:\test.mpg';
Open;
Display := Panel1;
DisplayRect := Panel1.ClientRect;
Play;
{visible:=false;} {в случае если необходимо скрыть кнопки плеера}
end;
end;
