Если в системе Windows MMSystem установлен декодер MPEG - используя компонент
TMediaPlayer
procedure TForm1.Button1Click(Sender: TObject);
begin
with MediaPlayer1 do
begin
Filename := 'C:\Download\delphiworld.mpg';
Open;
Display := Panel1;
DisplayRect := Panel1.ClientRect;
Play;
end;
end;
|
| 
