invalid floating point operation

[mosq]

Помогите разобрать проблему:

URL:='http://www.yandex.ru';
webbrowser1.Navigate2(URL,FLAGS);
i:=0; s:='.';
repeat
  sleep(100);
  inc(i);
  if length(s)<10 then s:=s+'.' else s:='.';
  bstatus.Caption:='Загрузка ('+inttostr(i div 10)+' сек)'+s;
  application.ProcessMessages;
  try memo1.Text:=WebBrowser1.OleObject.document.body.InnerHTML; except memo1.Text:='q' end;
until (pos('Яндекс',memo1.Text)>0) or (i=600) or  (Webbrowser1.ReadyState>3) or GLOBALSTOP;

На шаге Application.processmessages; через раз выскакивает ошибка "Invalid floating point operation" и webbrowser1 перестает грузить страницу.

Какие соображения?

[TwiX]

Тип переменно I какой?

[mosq]

i:integer;

у меня есть подозрение, что проблема в Webbrowser1.
Т.е. когда он загружает какую-то страницу, и байты в памяти складываются каким-то неблагоприятным обрлазом, то application.processmessages начинает глючить.

Ту же проблему сейчас испытываю в другом цикле, где грузится другая страница. Выскакивает ошибка
"Access violation... Read address:000000000", как-то так.
Цикл такой же, как этот.

[Alex Cones]

Пробуем F7 и смотрим значения переменных.
И попробуй эту строку:

  bstatus.Caption:='Загрузка ('+inttostr(i div 10)+' сек)'+s;

закомментить.

[mosq]

пробовал все. и трасировку, и try.. except на весь блок
кстати, несмотря на try..except ошибка все равно выскакивает.
вот я и думаю, что это не программа ее выдает, а webbrowser. вернее, движок IE, который под try..except не подчиняется..

[Alex Cones]

движок IE

А обязательно под IE? Есть же TMozillaBrowser. Кстати, не так давно (меньше полугода назад) мелькал на Форуме.

[mosq]

не пробовал tmozillabrowser, сейчас пошукаю, чего это такое

[свр]

При нажатии на кнопку выскакивает ошибка Invalid floating point operation
и делфи указывает на последнюю строчку в ДПР-ке. В чем может быть ошибка? Она появилась после введения ini-файла. Текст программы не привожу, т.к он очень длинный

Все, сам разобрался с проблемой