?transcoding=1&timestart=количество_секунд

procedure CheckChildItems(aMediaItem: THmsScriptMediaItem);
begin
  if not aMediaItem.HasChildItems then try
    HmsDownloadUrl('http://' + ServerAddress + aMediaItem.WebLink(aMediaItem));
  except end
end;

function FindIntervalFolder(aMediaItem: THmsScriptMediaItem): THmsScriptMediaItem;
var
  i: Integer;
  MediaItemFolder, TranscodingFolder: THmsScriptMediaItem;
begin
  Result := nil; TranscodingFolder := nil;
  for i := 0 to CurrentMediaItemList.Count - 1 do
    if CurrentMediaItemList[i].Properties[mpiTitle] = 'Транскодирование' then begin
      TranscodingFolder := CurrentMediaItemList[i]; Break
    end;
  if TranscodingFolder <> nil then begin
    CheckChildItems(TranscodingFolder);
    MediaItemFolder := TranscodingFolder.FindItemByProperty(mpiTitle, '(T) ' + aMediaItem.Properties[mpiTitle]);
    if MediaItemFolder <> nil then begin
      CheckChildItems(MediaItemFolder);
      Result := MediaItemFolder.FindItemByProperty(mpiTitle, '(T) Интервал 01 минута ');
      if Result <> nil then
        HmsLogMessage(1, 'http://' + ServerAddress + aMediaItem.WebLink(Result));  // Воспроизведение Всех
    end
  end
end;

function TranscodedFolder(var aItem: THmsScriptMediaItem): THmsScriptMediaItem;
var
  i: Integer;
  FolderList: TList;
  sWebLink, sText: string;
  FolderItem: THmsScriptMediaItem;
  
begin
  FolderItem := aItem;
  sText :='';
  if FolderItem <> nil then begin
    FolderList := TList.Create;
    try
      while FolderItem <> HmsFindMediaFolder(mfVideoItemsFolderID) do begin
        sText := sText +'\'+ FolderItem.Properties[mpiTitle];
        FolderList.Add(FolderItem);
        FolderItem := FolderItem.ItemParent;
        sText := sText +'\'+ FolderItem.Properties[mpiTitle];
      end;
      HmsLogMessage(1,sText);
      sText :='';
      FolderItem := HmsFindMediaFolder(mfVideoTranscodingItemsID );
      for i := FolderList.Count - 1 downto 0 do begin
        if(THmsScriptMediaItem(FolderList[i]).IsFolder) then
          FolderItem := FolderItem.FindItemByProperty(mpiTitle,THmsScriptMediaItem(FolderList[i]).Properties[mpiTitle ])
        else
          FolderItem := FolderItem.FindItemByProperty(mpiFilePath,THmsScriptMediaItem(FolderList[i]).Properties[mpiFilePath ]);
        sText := sText +'\'+ FolderItem.Properties[mpiTitle];
      end;
    except
      FolderItem := aItem
    end
  end;
      Result := FolderItem.FindItemByProperty(mpiTitle, '(T) Èíòåðâàë 01 ìèíóòà ');
  if Result = nil then
    Result:= aItem;
  sText := sText +'\'+ Result.Properties[mpiTitle];
  HmsLogMessage(1,sText);
end;

var
  Item: THmsScriptMediaItem;
begin
     Item := CurrentMediaItem;
     Item := TranscodedFolder (Item);                        
     sWebLink := 'http://' + ServerAddress + '/MediaServer/Playlists/'+Item.Properties[mpiItemID] + '.m3u?fileext=.m3u';
     HmsStringToFile(HmsDownloadURL(sWebLink),ProgramPath + '\flv_playlist.m3u');
     sWebLink := ProgramPath + '\flv_playlist.m3u';
end.   

Работающий скрипт готов

var
  FolderList, SiblingsList: TList;
  k: integer;

function GetSiblingsList(aItem: THmsScriptMediaItem): TList;
var
   i: integer;
   SiblingsList: TList;
begin
   SiblingsList := TList.Create; 
   for i:= 0 to aItem.ItemParent.ChildCount - 1 do begin
      SiblingsList.Add(aItem.ItemParent.ChildItems[i]);   
   end;
   result := SiblingsList
end;

procedure ProcessItem(aItem: THmsScriptMediaItem);
var
  i: Integer;
begin
  if(aItem.MediaType = mtVideo)then 
  if (length(aItem.Properties[mpiTimeLength ])=0) then
     aItem.Properties[mpiTimeLength ] := '1:40:00.000';  

end;

var
  i,l: Integer;
  Podcasts, aItem: THmsScriptMediaItem;
begin

  Podcasts := HmsFindMediaFolder(mfVideoPodcastsFolderItemID);
  if (Podcasts <> nil) and (Podcasts.ChildCount > 0) then begin
    HmsShowProgress('Установка длительности по умолчанию...');
        FolderList := TList.Create;
        aItem := THmsScriptMediaItem(Podcasts.ChildItems[0]);
        FolderList.Add(aItem);
  for k := 0 to Podcasts.ChildCount-1 do begin
        FolderList := TList.Create;
        aItem := THmsScriptMediaItem(Podcasts.ChildItems[k]);
        FolderList.Add(aItem);
    hmslogmessage(1,THmsScriptMediaItem(FolderList[0]).Properties[mpiTitle]);
  if (THmsScriptMediaItem(FolderList[0]) <> nil) and (THmsScriptMediaItem(FolderList[0]).ChildCount > 0) then begin
    
    try
        repeat
          aItem := aItem.ChildItems[0];
          FolderList.Add(aItem)
        until (aItem.ChildCount = 0);
        repeat
    HmsShowProgress('Установка длительности по умолчанию '+THmsScriptMediaItem(FolderList[0]).Properties[mpiTitle]+'...');
          if HmsCancelPressed then
            Break
          else begin  
            l:=FolderList.Count-1;
            for i:= 0 to THmsScriptMediaItem(FolderList[l]).ItemParent.ChildCount - 1 do begin
                ProcessItem(THmsScriptMediaItem(FolderList[l]).ItemParent.ChildItems[i]); 
                HmsSetProgress(Round(((i + 1) / THmsScriptMediaItem(FolderList[l]).ItemParent.ChildCount) * 100))
            end;
            repeat
              FolderList.Delete(l);
              l := l-1;
              
              SiblingsList := GetSiblingsList(THmsScriptMediaItem(FolderList[l]));
              i:= SiblingsList.IndexOf(THmsScriptMediaItem(FolderList[l]));
            until ((l = 0) or (i <(SiblingsList.Count-1)));
            if (l<>0) then begin
              k:=0;
              repeat
                i := i+1;
                FolderList[l] := Siblingslist[i];
              until(Length(THmsScriptMediaItem(FolderList[l]).Properties[mpiTitle])<>0); 
              aItem := THmsScriptMediaItem(FolderList[l]);
              if aItem.HasChildItems then
                repeat
                  aItem := aItem.ChildItems[0];
                  FolderList.Add(aItem)
                until (aItem.ChildCount = 0);
            end;            
          end;
        until l=0;

    finally
      HmsHideProgress
    end
  end;  
  end;  
    if HmsCancelPressed then
      MessageDlg('Установка длительности видео прервано пользователем.', mtError, mbOK, 0)
    else begin
      HmsDatabaseAutoSave;
      MessageDlg('Установка длительности видео прошло успешно.', mtInformation, mbOK, 0)
    end  
    end else
    MessageDlg('Нет файлов для обработки.', mtError, mbOK, 0);
  ProcessMediaResult := True      
end.

Item.Properties[mpiTimeLength ] := '1:40:00.000';