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:   end;
  end;
  
  procedure TKMVideoPlayer.DoPlay(AVideoName: array of string; AEndVideo: TKMVideoPlayerEvent = nil);
  var
    fileName: string;
  begin
    FIndex := 0;
    DoStop;
    FVideoList.Clear;
    if Length(AVideoName) = 0 then
      Exit;
  
    for fileName in AVideoName do
      if FileExists(fileName) then
        FVideoList.Add(fileName);
  
    if FVideoList.Count > 0 then
      PlayNext;
  end;
  
  procedure TKMVideoPlayer.DoStop;
  const
    TIME_STEP = 50;
  
negative.code: {$ENDIF}
  
  type
    TKMVideoPlayer = class
    private
  {$IFDEF VIDEOS}
  