var
matchs: TMatchCollection;
const
encryp_RexStr = 'encryptAccountId(.*?)isGold';
matchs := TRegEx.Matches(sResponseHtml, encryp_RexStr);
if matchs.Count = 1 then
begin
tmpShopInfo.encryptAccountId := matchs.Item[0].Groups[1].Value;
...
...
end