anchor.diff:      localePostfixes.Add('.' + UnicodeString(gResLocales.DefaultLocale));
       localePostfixes.Add('');
   
  -    fileName := ExtractFileName(aPath);
  +    fileName := ExtractFileName(aPathRelative);
       for I := 0 to localePostfixes.Count - 1 do
       begin
         try
  
positive.code:     FTrackList: TStringList;
      FVideoList: TList<TKMVideoFile>;
  
      function TryGetPathFile(const aPath: string; var aFileName: string): Boolean;
      procedure SetTrackByLocale;
      function GetState: TVLCPlayerState;
  
  
negative.code:   Result := False;
    aFileName := '';
  
    path := ExtractFilePath(aPathRelative);
    if not DirectoryExists(ExeDir + path) then
      Exit;
  
    localePostfixes := TStringList.Create;
  