delphi-如何获取列出网页的所有元素ID

 procedure TForm1.GetIDs;
var
   All,
   Doc,
   E : OleVariant;
   i : Integer;
   S : String;
begin
   Doc := WebBrowser1.Document;
   All := Doc.all;
   for i := 0 to All.Length - 1 do begin
    E := All.Item(i);
    S :=IntToStr(i) + ' ' + E.id;
    Memo2.Lines.Add(S);
   end;
end;