delphi - HTML データの解析に TWebBrowser を使用する

Question

TWebBrowser コンポーネントを使用するアプリを取得しました。1 つのサイトへのリンクがあります。このサイトは、「for」ステートメントを使用して TWebBrowser を使用して開きます。たとえば、次のようになります。

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」を呼び出すときにデータベースのデータを更新するにはどうすればよいですか?