InnerText aus TWebBrowser in Listbox

[fLeTCHeR]

hallo freaks

ich habe ein kleines Problem. Ich möchte aus einer HTML- Datei den innerText auslesen und in eine Listbox schreiben. Dabei muss jeder gefundene innerText in eine eigene Zeile der Lisbox geschrieben werden. Um den innerText in eine Memo zuschreiben, verwende ich folgenden Code.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  IDoc: IHTMLDocument2;
  Strl: TStringList;
  sHTMLFile: string;
  v: Variant;
  Links: IHTMLElementCollection;
  i: Integer;
  Link: IHTMLAnchorElement;
begin
  if OpenDialog1.Execute then
  begin
    sHTMLFile := OpenDialog1.FileName;
    Strl := TStringList.Create;
    try
      Strl.LoadFromFile(sHTMLFile);
      Idoc := CreateComObject(Class_HTMLDOcument) as IHTMLDocument2;
      try
        IDoc.designMode := 'on';
        while IDoc.readyState <> 'complete' do
          Application.ProcessMessages;
        v := VarArrayCreate([0, 0], VarVariant);
        v[0] := Strl.Text;
        IDoc.Write(PSafeArray(System.TVarData(v).VArray));
        IDoc.designMode := 'off';
        while IDoc.readyState <> 'complete' do
          Application.ProcessMessages;
        Memo1.Lines.Text := IDoc.body.innerText;
      finally
        IDoc := nil;
      end;
    finally
      Strl.Free;
    end;
  end;
end;

Leider blick ich bei diesem Code (--> www.SwissDelphiCenter.ch) nich zu richtig durch und krieg es nicht hin den Code umzuändern. Vielleicht kann mir jemand von Euch helfen.

Vielen Dank im voraus

mfg fleTCHeR