[SeRыЙ]

Нужно открыть страницу в TWebBrowser и, когда она загрузится, сохранить на жесткий диск.
Я делаю так:

WebBrowser1.Navigate('http://ya.ru');
repeat
Until WebBrowser1.ReadyState=4;
ShowMessage('Ok');

Но почему то программа виснет (( С какого фига?? Если проверять таймером, то все работает, но таймером нельзя, т.к. тогда получится, что после таймера надо перепрыгнуть в определенное место в другой процедуре, а лабелы работают только в одной процедуре =(

Вобщем суть ясна: нужно в одной процедуре открыть, дождаться окончания загрузки и сохранить в файл на жесткий диск, страницу.