anchor.diff:      FTrackList: TStringList;
       FVideoList: TList<TKMVideoFile>;
   
  -    function TryGetPathFile(const aPath: string; var aFileName: string): Boolean;
  +    function TryGetPathFile(const aPathRelative: string; var aFileName: string): Boolean;
       procedure SetTrackByLocale;
       function GetState: TVLCPlayerState;
   
  
positive.code: 
  
  {$IFDEF VIDEOS}
  function TKMVideoPlayer.TryGetPathFile(const aPath: string; var aFileName: string): Boolean;
  var
    I: Integer;
    searchRec: TSearchRec;
  
negative.code:   Result := False;
    aFileName := '';
  
    path := ExtractFilePath(aPathRelative);
    if not DirectoryExists(ExeDir + path) then
      Exit;
  
    localePostfixes := TStringList.Create;
  