WebBrowser проблема с загрузкой страницы и последующей обработкой

[OkeaH]

После запуска этой процедуры* программа вылетает с ошибкой OLE.
Я так понимаю проблема в том, что странице еще не успела загрузиться, а уже идет ее обработка т.к. если сначла загрузить страницу, потом вручную запустить ее обработку все замечательно работает.
Пробовал после загрузки страницы ставить sleep, но страницв в этом случае вообще не грузиться.
Как бы обойти эту ошибку?

*

WebBrowser1.Navigate('yandex.ru')
------------------------------------------------------------
for f:=0 to WebBrowser1.OleObject.Document.forms.Length-1 do begin
form:=WebBrowser1.OleObject.Document.forms.Item(f) .elements;
for i:=0 to form.Length-1 do
if form.item(i).name='username' then  form.item(i).value:=s
else
if form.item(i).name='password' then form.item(i).value:=s1;
end;
end;

[Viteef]

for f:=0 to WebBrowser1.OleObject.Document.forms.Length-1 do begin
form:=WebBrowser1.OleObject.Document.forms.Item(f) .elements;
for i:=0 to form.Length-1 do
if form.item(i).name='username' then  form.item(i).value:=s
else
if form.item(i).name='password' then form.item(i).value:=s1;
end;
end;

надеюсь этот код ставите в OnDownloadComplete?

[Arigato]

странице еще не успела загрузиться, а уже идет ее обработка т.к. если сначла загрузить страницу, потом вручную запустить ее обработку все замечательно работает.

Событие, которое наступает по завершению загрузки: OnDownloadComplete

[OkeaH]

Viteef
Arigato
Понял спасибо. Делал без этого события