delphi获取webbrowser中的元素的值

webbrowser有一个隐藏域id为xx，值为0

procedure TForm1.btn1Click(Sender: TObject);
var
  doc:olevariant;
  str:string;
begin
    doc:=wb1.Document;
    str:=doc.all.xx.value;
    ShowMessage(str);
end;