delphi - 使用 TWebBrowser 解析 HTML 数据

Question

我有一个使用 TWebBrowser 组件的应用程序，并且我有一个站点的链接，该站点使用 TWebBrowser 使用“for”语句打开它，例如：

adoquery.sql.text = "select top 10 id from table1";
    adoquery.sql.open;
    adoquery.sql.first;

    while not adoquery.eof do 
    begin
        TwebBrowser.navigate("http://website1.com/php?id="+inttostr(id));
        adoquery.next;
    end;

当页面加载完成（“OnNavigateComplete”）时，我调用一个解析加载的 TwebBrowserData 的 HTML 的函数，之后在数据库中进行更新，但它不起作用。调用方法“OnNavigateComplete”时如何更新数据库的数据？