在线急等关于TWebBrowser的问题

我要做如下处理：有多个html文件，我要一个一个读出来并将纯文本保存到单独的文件中，现在出现的问题就是总是出现重复的和漏掉的（总数是正确的，也就是漏掉的被上一个重复了），不知道为什么，把源码贴在下面，望达人解答：
procedure TForm1.Button1Click(Sender: TObject);
begin
  FileListBox1.Directory := LabeledEdit1.Text;
  NO := 0;
  EPInfo.LoadFromFile(LabeledEdit1.Text + '\'+FileListBox1.Items[0]);
  WebBrowser1.Navigate(LabeledEdit1.Text + '\'+FileListBox1.Items[0]);
end;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  tmp: String;
begin
  WebBrowser1.Stop;
  EPInfo.Text := IHtmlDocument2(WebBrowser1.Document).Body.outerText;
  tmp := EPInfo.Text;
  //这里省略保存文件步骤
  if NO< FileListBox1.Count - 1 then begin
    NO := NO + 1;
    WebBrowser1.Navigate(LabeledEdit1.Text + '\'+FileListBox1.Items[NO]);
  end else begin
    ShowMessage('OK');
  end;
end;