не рабатает поиск в webbrowser

[Ghennadiy]

вот код

procedure TForm1.Search(i,f:integer);
var
outfile: TextFile;
begin
  begin
  for i := 0 to WebBrowser1.OleObject.Document.All.Length - 1 do
  begin
  if Pos(Edit1.Text, WebBrowser1.OleObject.Document.All.Item(i).InnerText) <> 0
   then begin
         WebBrowser1.OleObject.Document.All.Item(i).Style.Color := '#FFFF00';
         WebBrowser1.OleObject.Document.All.Item(i).ScrollIntoView(True);
  end;
end;
end;

в чем ошибка при поиске?