TWebBrowser - Lista wszystkich elementów zamiast uchwytów

Jak wiadomo dostęp do uchwytów w TWebBrowser jest niemożliwy. W artykule TWebBrowser i przyjaciele jest procedura która znajduje wszystkie linki w WebBrowser.

 
for a := 0 to WebBrowser.OleObject.Document.Links.Length-1 do
s:=s+(WebBrowser.OleObject.Document.Links.Item(a).href)+#13;
Result:=s;

A jak znalejsc liste wszystkich elementów w WebBrowser? Przegladajac google i 4programmers natknalem sie na taka funkcje, ktora moglbaby byc pomocna, jednak nie wiem jak ją przepisać na delphi.

 private void Pokaz()
        {
            HtmlElementCollection kolekcja = null;
            kolekcja = WebBr.Document.All;
            string sWynik = "";
            foreach (HtmlElement element in kolekcja)
            {
                if (element.Id != null && element.Id.Trim() != "")
                {
                    sWynik += element.Id + "\t\n";
                }
            }
            MessageBox.Show(sWynik);
        }

//do uses MSHTML;
var
  i: Integer;
  doc: IHTMLDocument2;
  elem: IHTMLElement;
  item: TListItem;
begin
  doc:= WebBrowser1.Document as IHTMLDocument2;
  if Assigned(doc) then
  begin
    for i:= 0 to doc.All.Length - 1 do
    begin
      elem:= doc.All.Item(i, EmptyParam) as IHTMLElement;
      item:= ListView1.Items.Add;
      item.Caption:= elem.TagName;
      item.SubItems.Add(elem.ID);
      item.SubItems.Add(elem.className);
    end;
  end;
end;

Dzieki kazek. Jestes genialny! ;)