Чтобы корректно брались другие имена, меняем:
//AltNames
curPos := Pos('decoration:none><font size=3>', HTML);
if curPos > 0 then begin
curPos := curPos + Length('decoration:none><font size=3>');
EndPos := PosFrom('</font></a>', HTML, curPos);
Tmp := Copy(HTML, curPos, EndPos - curPos);
AddFieldValue(pfAltNames, Tmp);
end;