anchor.diff:  destructor TKMVideoPlayer.Destroy;
   begin
   {$IFDEF VIDEOS}
  -  Stop;
  +  StopVideo;
     VLCUnloadLibrary;
     FVideoList.Free;
     FTrackList.Free;
  
positive.code: {$ENDIF}
  end;
  
  procedure TKMVideoPlayer.Stop;
  begin
    if Self = nil then
      Exit;
  
negative.code:     function TryGetPathFile(aPath: string; var aFileName: string): Boolean;
      procedure SetTrackByLocale;
      function GetState: TVLCPlayerState;
  
      procedure StopVideo;
  {$ENDIF}
    public
      constructor Create;
  