var
  BDoc: IHTMLDocument2; //需要 USES MSHTML
  sJs1: string;
  sJs2: string;
begin
  BDoc := WebBrowser1.Document as IHTMLDocument2;

  sJs1 := '$("#mrm_ddlProvince").find("option").eq(14).attr("selected","selected");';
  sJs1 := sJs1 + '$("#mrm_ddlProvince").find("option").eq(14).change();';

  sJs2 := '$("#mrm_ddlCity").find("option").eq(3).attr("selected","selected");';
  sJs2 := sJs2 + '$("#mrm_ddlCity").find("option").eq(3).change();';

  BDoc.parentWindow.execScript(sJs1, 'JavaScript');
  BDoc.parentWindow.execScript(sJs2, 'JavaScript');

end;

var
  BDoc: IHTMLDocument2;
  e: OleVariant;
  s: string;
begin
  BDoc := WebBrowser1.Document as IHTMLDocument2;
  e := BDoc.all.item('元素的ID', 0); // 假设此元素是一个 </A>标签
  s := e.href; //这个是强制取 href 这个属性的值,也可以是一个函数,当然你也可以胡乱写一个，编译时是不会出错的。
  // 当 IHTMLELEMENT 没有定义这些元素时，就可以用此“万能”方法。
  ShowMessage(s);
  e.href:='www.xxx.com'; //你也可以给 href 赋值
end;