можно
year := HTMLValues2(tmp, '<a', '</a>', 'class=orange', '</a>', ',', curPos);
origtitle := ReplaceToSimple (HTMLValues2(tmp, '<font', '</font>', '#999999', '</font>', ',', curPos));
if OrigTitle[length(OrigTitle)] = ' ' then
OrigTitle := Copy (OrigTitle, 1, length (OrigTitle) - 1);
if StringReplace (OrigTitle, ' ', '', true, false, false) = '' then
OrigTitle := Title;
if optConnection = Enabled then AddConnection(TVVideo(Title), TVVideo(OrigTitle), cat, url, year);
заменить на
year := HTMLValues2(tmp, '<a', '</a>', 'class=orange', '</a>', ',', curPos);
if StringReplace(year, ' ', '', true, false, false) <> '' then
begin
origtitle := ReplaceToSimple (HTMLValues2(tmp, '<font', '</font>', '#999999', '</font>', ',', curPos));
if OrigTitle[length(OrigTitle)] = ' ' then
OrigTitle := Copy (OrigTitle, 1, length (OrigTitle) - 1);
if StringReplace (OrigTitle, ' ', '', true, false, false) = '' then
OrigTitle := Title;
if optConnection = Enabled then AddConnection(TVVideo(Title), TVVideo(OrigTitle), cat, url, year);
end;
т.е. если год пустой или состоит из пробелов, то вообще игнорировать остальной код в if-е и, соответственно, данный фильм в связи не добавлять.