Правда, истинная правда. Плохая идея с моей стороны
Лучше так:
procedure ParseFilmography (FilmographyURL : AnsiString; var HTML : String);
var
docPos, rowPos, curPos, endPos, Category : Integer;
txt, row, sCat, Year, URL, Title, OrigTitle, Role,
SeriesTitle, OrigSeriesTitle, SeriesRole, SeriesURL, TMarkerB, TMarkerE : String;
begin
...
...
docPos := docPos + Length(row);
end;
curPos := PosFrom('<img src="/acter/foto/', HTML, endPos);
if curPos > 0 then begin
curPos := curPos + Length('<img src="/acter/foto/');
endPos := PosFrom('" width="', HTML, curPos);
ExtraLinks[smPhoto] := BASE_URL+'/acter/foto/'+Copy(HTML, curPos, EndPos - curPos);
end;
ExtraLinks[smBio]:=StringReplace(FilmographyURL, 'works/print', 'bio', false, true, true);
end;
procedure ParseSearchResults( var HTML : String );
Отказ от дальнейшего поиска решений. Со своей стороны, вопрос был закрыт. Хорошая работа, спасибо за усилия, но сценарий, к сожалению, больше не используется.