1:
2:
3:

s := IdHTTP1.Get(...
//Ab hier mache ich sehr umständlich mit selbstgeschriebenem Code weiter
//...					

1:
2:

s := IdHTTP1.Get(...
sPureString := HTMLToText(s);  //Leider habe ich keine Funktion HTMLToText!					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:

uses
  ActiveX, MSHTML, IdHTTP;

type
  IHtmlElementEnumerator = interface
    function GetEnumerator: IHtmlElementEnumerator;
    function GetCurrent: IHTMLElement;
    function MoveNext: Boolean;
    property Current: IHTMLElement read GetCurrent;
  end;

  THtmlElementEnumerator = class(TInterfacedObject, IHtmlElementEnumerator)
  private
    var
      FEnum: IEnumVariant;
      FCurrent: IHTMLElement;
    function GetCurrent: IHTMLElement;
    function MoveNext: Boolean;
  public
    constructor Create(const AElements: IHTMLElementCollection);
    function GetEnumerator: IHtmlElementEnumerator;
    class function Enum(const AElements: IHTMLElementCollection): IHtmlElementEnumerator;
  end;

{ THtmlElementEnumerator }

constructor THtmlElementEnumerator.Create(const AElements: IHTMLElementCollection);
begin
  FEnum := AElements._newEnum as IEnumVariant;
end;

class function THtmlElementEnumerator.Enum(const AElements: IHTMLElementCollection): IHtmlElementEnumerator;
begin
  Result := THtmlElementEnumerator.Create(AElements);
end;

function THtmlElementEnumerator.GetCurrent: IHTMLElement;
begin
  Result := FCurrent;
end;

function THtmlElementEnumerator.GetEnumerator: IHtmlElementEnumerator;
begin
  Result := Self;
end;

function THtmlElementEnumerator.MoveNext: Boolean;
var
  CurrentElement: OleVariant;
  ElementCount: Cardinal;
begin
  Result := FEnum.Next(1, CurrentElement, ElementCount) = S_OK;
  if Result then
    FCurrent := IUnknown(CurrentElement) as IHTMLElement
  else
    FCurrent := nil;
end;

function GetFirstWikipediaParagraph(const AURL: String): String;
var
  PageLoader: TIdHTTP;
  HtmlDocument: IHTMLDocument2;
  HtmlDocumentEx: IHTMLDocument3;
  PageContents: String;
  CurrentElement, ContentsElement, ParagraphElement: IHTMLElement;
begin
  // fetch page contents
  PageLoader := TIdHTTP.Create;
  try
    PageContents := PageLoader.Get(AURL);
  finally
    PageLoader.Free;
  end;
  // load page contents to parser
  HtmlDocument := CoHTMLDocument.Create as IHTMLDocument2;
  OleVariant(HtmlDocument).write(PageContents);
  HtmlDocument.close;
  // wait for parser to be ready
  while HtmlDocument.ReadyState <> 'complete' do
    Application.ProcessMessages;
  HtmlDocumentEx := HtmlDocument as IHTMLDocument3;
  // delete all annotations
  for CurrentElement in THtmlElementEnumerator.Enum(HtmlDocumentEx.getElementsByTagName('sup')) do
    (CurrentElement as IHTMLDOMNode).removeNode(true);
  // find contents element
  ContentsElement := HtmlDocumentEx.getElementById('mw-content-text');
  // first element inside is the table on the right, second is the first paragraph, so take index 1
  ParagraphElement := (ContentsElement.children as IHTMLElementCollection).item(1, EmptyParam) as IHTMLElement;
  // return text inside
  Result := ParagraphElement.innerText;
end;

// example call
ShowMessage(GetFirstWikipediaParagraph('http://de.wikipedia.org/wiki/Topinambur'));					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

function GetFirstWikipediaParagraph(const AURL: String): String;
var
  PageLoader: TIdHTTP;
  HtmlDocument: IHTMLDocument2;
  HtmlDocumentEx: IHTMLDocument3;
  PageContents: String;
  CurrentElement, ContentsElement, ParagraphTestElement: IHTMLElement;
  ContentsElementChildren: IHTMLElementCollection;
  i: Integer;
begin
  // fetch page contents
  PageLoader := TIdHTTP.Create;
  try
    PageContents := PageLoader.Get(AURL);
  finally
    PageLoader.Free;
  end;
  // load page contents to parser
  HtmlDocument := CoHTMLDocument.Create as IHTMLDocument2;
  OleVariant(HtmlDocument).write(PageContents);
  HtmlDocument.close;
  // wait for parser to be ready
  while HtmlDocument.ReadyState <> 'complete' do
    Application.ProcessMessages;
  HtmlDocumentEx := HtmlDocument as IHTMLDocument3;
  // delete all annotations
  for CurrentElement in THtmlElementEnumerator.Enum(HtmlDocumentEx.getElementsByTagName('sup')) do
    (CurrentElement as IHTMLDOMNode).removeNode(true);
  // find contents element
  ContentsElement := HtmlDocumentEx.getElementById('mw-content-text');
  ContentsElementChildren := ContentsElement.children as IHTMLElementCollection;
  Result := '';
  for i := 0 to ContentsElementChildren.length - 1 do
  begin
    ParagraphTestElement := ContentsElementChildren.item(i, EmptyParam) as IHTMLElement;
    if AnsiSameText(ParagraphTestElement.tagName, 'p') then
    begin
      Result := ParagraphTestElement.innerText;
      Break;
    end;
  end;
  if Result = '' then
    Result := ContentsElement.innerText;
end;					

1:

Result := Document.body.innerText;