Delphi: How to parse an HTML page with XPath?

Sorry, I'm not aware of external link agreement until now. Links I posted here was a "fast" help - some users complain about slowness. I'm not encourage giving

working example

- asker will do copy paste - but what is behind ....

So still .... made working example:

uses ActiveX, MSXML2_TLB;
...
function ParseHTM4String(sTextToParse, sXPath: String; var sResponse: String;
  var sError: String): Boolean;
var
  XMLDomDoc: IXMLDOMDocument2;
  XMLDomNode: IXMLDOMNode;
begin
  Result := False;
  sResponse := '';
  sError := '';

  XMLDomDoc := CoDOMDocument30.Create; 
  try
    try
      XMLDomDoc.setProperty('ProhibitDTD', 'False');

      XMLDomDoc.async := False;
      XMLDomDoc.PreserveWhitespace := True;
      XMLDomDoc.ResolveExternals := True;
      XMLDomDoc.ValidateOnParse := False;

      if XMLDomDoc.loadXML(sTextToParse) then
      begin
        XMLDomDoc.setProperty('SelectionLanguage', 'XPath');
        XMLDomDoc.setProperty('SelectionNamespaces', 'xmlns:x=''http://www.w3.org/1999/xhtml''');

        XMLDomNode := XMLDomDoc.selectSingleNode(sXPath);
        if XMLDomNode<>nil then
        begin
          sResponse := XMLDomNode.text;
          Result := True;
        end;
      end
      else
        sError := Trim(XMLDomDoc.parseError.reason);
    except
    end;
  finally
    XMLDomDoc := nil;
  end;
end;

function GetHTMLInfo(sURI, sXPath: String; var sResponse: String; var sError: String): Boolean;
const
 COMPLETED = 4;
 OK = 200;
var
  XMLHTTPRequest  : IXMLHTTPRequest;
begin
  Result := False;
  sResponse := '';
  sError := '';

  XMLHTTPRequest := CoXMLHTTP.Create;
  try
    XMLHTTPRequest.open('GET', sURI, False, EmptyParam, EmptyParam);
    XMLHTTPRequest.send(EmptyParam);
    if (XMLHTTPRequest.readyState = COMPLETED) and (XMLHTTPRequest.status = OK) then
    begin
      Result := ParseHTM4String(XMLHTTPRequest.responseText, sXPath, sResponse, sError);
    end
    else
      sError := Trim(XMLHTTPRequest.statusText);
  finally
    XMLHTTPRequest := nil;
  end;
end;

initialization
  CoInitialize(nil);

finalization
  CoUninitialize;

Select all Open in new window

Example is using windows MSXML2 interface which you can get here:
MSXML2_TLB.pas
Use XMLHTTPRequest to get http page (instead of TIdHttp) and pass response to my ParseHTM4String function and XPath search string.

Usage:

GetHTMLInfo('http://de.wikipedia.org/wiki/Physik',
    Edit1.Text, sResult, sError);
//sResult is result ....

Select all Open in new window

Line

XMLDomDoc.setProperty('SelectionLanguage', 'XPath');

Select all Open in new window

is added because you will use XPath search capability ....