Если в системе 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;