TWebbrowser - Quellcode auslesen

[peter314]

Hallo allerseits,
wollt kein neuen Thread aufmachen, weil das Thema hier eigentlich schon zur genüge breitgetreten ist, aber irgendwie will das bei mir nicht.
Ich hab jetzt schon mit jeder Funktion die ich hier gefunden habe versucht den Quelltext der aktuellen Seite meines TWebBrowsers auszulesen, aber beim ausführen erhalte ich immer ein Access Violation.

Code:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw_TLB, ActiveX, ComObj;
{...}
procedure TForm1.Button1Click(Sender: TObject);
var
htmlcode: string;
begin
 WebBrowser1.Navigate('http://wortsuche.com/by-length/4a/');
 htmlcode:= WebBrowser1.OleObject.Document.documentElement.innertext;
 Showmessage(Copy(htmlcode,1,20));
end;

Ich weiß einfach nicht mehr weiter. Über Lösungsvorsschläge würd ich mich sehr freuen.

Dank im Vorraus,
Peter314