anchor.diff:  destructor TKMVideoPlayer.Destroy;
   begin
   {$IFDEF VIDEOS}
  -  Stop;
  +  StopVideo;
     VLCUnloadLibrary;
     FVideoList.Free;
     FTrackList.Free;
  
positive.code:     FTexture.Tex := 0;
    end;
    SetLength(FBuffer, 0);
  
    Inc(FIndex);
    if FIndex >= FVideoList.Count then
  
negative.code:     function TryGetPathFile(aPath: string; var aFileName: string): Boolean;
      procedure SetTrackByLocale;
      function GetState: TVLCPlayerState;
  
      procedure StopVideo;
  {$ENDIF}
    public
      constructor Create;
  