Подправил скрипт, а то добавляеться постоянно "... слова" в жанр.
Функция AddMediaInfo ;)

const
csKinopoiskTitle = '<title>(.*?)</title>';
csKinopoiskImage = 'src="([^"]*/images/film.*?/.*?)"';
csKinopoiskOriginalName = '<span style="color: \#666; font-size: 13px">(.*?)</span ...

DmitriiP , что то типо этого

var
i: Integer;
Item1,itemvideo,itemallvideo: THmsScriptMediaItem;

procedure WriteString(const aStr: string);
begin
if aStr <> '' then
WebPageText := WebPageText + aStr
end;

procedure WriteLine(const aText: string);
begin
WriteString(aText + #13#10 ...