anchor.diff:      FMediaPlayer: libvlc_media_player_t_ptr;
       FEvents: libvlc_event_manager_t_ptr;
   
  +    FTrackList: TStringList;
       FVideoList: TStringList;
       FEndVideo: TKMVideoPlayerEvent;
   
  
positive.code:     FTexture.V := 1;
      FCriticalSection.Leave;
  
      libvlc_video_set_format(FMediaPlayer, 'RV24', FWidth, FHeight, FWidth * 3);
      libvlc_media_player_set_media(FMediaPlayer, media);
      libvlc_media_player_play(FMediaPlayer);
    end;
  
    libvlc_media_release(media);
  end;
  
  function TKMVideoPlayer.GetState: TVlcPlayerState;
  
negative.code:     procedure EventsDisable();
      procedure PlayNext;
  
      procedure SetTrackByLocale;
      function GetState: TVlcPlayerState;
      procedure MediaPlayerEvents(var Msg: TVlcMessage); message WM_MEDIA_PLAYER_EVENTS;
  
  