Перерыл несколько форумов и описание TWebBroser - вот получился рабочий код:
Код:
procedure TForm1.Button2Click(Sender: TObject);
var
Doc: Variant;
txt: string;
begin
Doc:= WebBrowser1.Document;
txt:=doc.documentElement.innerHTML;
richedit1.Lines.Add(txt)
end;
Правда сырой, без проверок всяких... И визуализации не удалось избежать... Так что вопрос открытый...