Часть Странички в delphi код перестал работать!

[Fahman]

Здравствуйте, у меня есть 1 код и он мне убирал все что не нужно было в webbrowser Какое то время все работало нормально но потом вот он сам по мебе сам перестал работать...
В чем может быть дело?
Что не так?

вот моя ссылка..

procedure TForm1.Button1Click(Sender: TObject);
begin
webbrowser1.Navigate('http://finviz.com/insidertrading.ashx');
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  DocA: IHTMLElementCollection;
  doc: IHTMLDocument2;
  Element: IHTMLElement;
  i: integer;
  fl: boolean;
begin
  if (pDisp = CurDispatch) then
  begin
    doc := ((pDisp as IWebBrowser).Document as IHTMLDocument2);
    DocA := doc.body.all as IHTMLElementCollection;
    i := 0;
    fl := true;
    while (i < DocA.length) and fl do
    begin
      Element := DocA.item(i, 0) as IHTMLElement;
      if Element.className = 'body-table' then
      begin
        doc.body.innerHTML :=
          '<span class="time-text" id="time"></span>' + Element.outerHTML;
        fl := false;
      end;
      inc(i);
    end;
    CurDispatch := nil;

  end;
end;

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
if CurDispatch = nil then
    CurDispatch := pDisp;
end;

До этого все нормально было(