Чтобы корректно брались другие имена, меняем:
 //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;