TWebbrowser Navigating in loop and onDocumentComplete

How would I write this to allow processing of the wbDocumentComplete
event?

    ShellWin := TShellWindows.Create(nil);
    try
      for i := 0 to ShellWin.Count-1 do
        begin
          try
            ShellWin.Item(i).QueryInterface(IID_IWebBrowser2, IE);
            try
              URL := IE.LocationURL;
            finally
              wb.Navigate(URL);
            end;
          except
          end;
        end;
    finally
      ShellWin.Free;
    end;

Basically, I don't want to navigate to the next URL until the
OnDocumentComplete event of wb is finished.


--