var
  Divs: IHTMLElementCollection;
begin
  Divs := (WebBrowser1.Document as IHTMLDocument2).all.tags('TR') as IHTMLElementCollection;

procedure Parse(str: string);
var
  V: OleVariant;
  Doc: IHTMLDocument2;
  DocAll: IHTMLElementCollection;
  DocTR: IHTMLElementCollection;
begin
  Doc := coHTMLDocument.Create as IHTMLDocument2;
  v := VarArrayCreate([0,0], VarVariant);
  v[0] := str;
  Doc.write(PSafeArray(System.TVarData(v).VArray));

  DocAll := Doc.all;
  DocTR  := DocAll.Tags('TR') as IHTMLElementCollection;