anchor.diff:  
   procedure TKMVideoPlayer.PlayNext;
   var
  +  i: Integer;
     path: string;
     media: libvlc_media_t_ptr;
  -  info: libvlc_media_track_info_t_ptr;
  +
  +  trackCount: Cardinal;
  +  tracks: libvlc_media_track_list_t;
  +  track: libvlc_media_track_t_ptr;
   begin
     InitMediaPlayer;
     if (FInstance = nil) or (FMediaPlayer = nil) then
  
positive.code:     procedure EventsDisable();
      procedure PlayNext;
  
      function GetState: TVlcPlayerState;
      procedure MediaPlayerEvents(var Msg: TVlcMessage); message WM_MEDIA_PLAYER_EVENTS;
  
  
negative.code: {$IFDEF VIDEOS}
  
  uses
    KM_Render, KM_RenderUI, dglOpenGL, KM_Controls, KM_ResFonts, KM_GameApp;
  
  procedure lib_vlc_player_event_hdlr(p_event: libvlc_event_t_ptr; data: Pointer); cdecl; forward;
  
  