程序流程:procedure TForm1.Button1Click(Sender: TObject);
begin
 Webbrowser1.Navigate('页面page1");
end;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
  if not Webbrowser1.Busy then  获取页面page1所有下载链接
  为每个链接创建下载线程
end;这样只实现了第一页所有链接的下载,如何让程序在页面page1的所有下载线程完成后,自动顺序下载页面page2、page3...最好给出具体实现方法,谢谢。急用。