anchor.diff:            end;
           libvlc_track_audio:
             if track.psz_language <> nil then
  -            FTrackList.AddObject(UpperCase(track.psz_language), TObject(track.i_id));
  +            FTrackList.AddObject(UpperCase(string(track.psz_language)), TObject(track.i_id));
         end;
       end;
   
  
positive.code:   if FTrackList.Count = 0 then
      Exit;
  
    if not FTrackList.Find(UpperCase(gResLocales.UserLocale), index) and
      not FTrackList.Find(UpperCase(gResLocales.FallbackLocale), index) and
      not FTrackList.Find(UpperCase(gResLocales.DefaultLocale), index) then
      Exit;
  
    id := Integer(FTrackList.Objects[index]);
  
negative.code:   end;
  end;
  
  procedure TKMVideoPlayer.DoStop;
  const
    TIME_STEP = 50;
  