1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

var
 vid: pSMPEG;
 info: pSMPEG_info;
begin
 {Laden}
 vid := SMPEG_new('E:\GSLogo.mpg', @info, SDL_Disable);
 {"Zeichenfläche" zuweisen}
 SMPEG_setdisplay(vid, g_pBackBuffer, nil, nil);
 {Größe -> Zoomfaktor}
 SMPEG_scale(vid, 1);
 {Position}
 SMPEG_move(vid, screen.width div 2 - info.width div 2, screen.height div 2 - info.height div 2);

 SMPEG_play(vid);
end;

//Wenn das Video zu Ende ist, sollte man es wieder feigeben
 SMPEG_delete(vid);