[bibika]

Имеется компонент TWebBrowser, который грузит с диска большое дерево на html и JavaScript. При первом запуске программы наблюдается некоторая задержка при прорисовке страницы. Подскажите, как на время полной загрузки страницы, закрыть ее другой формой - типа сплаш скрина. Я себе так вижу алгоритм "Показывать Сплаш форм пока вся страница не загрузится". Помогите с доработкой вот такого простого кода:

Код:

procedure TForm1.FormCreate(Sender: TObject);
var dirsp:string;

begin
GetDir (0, dirsp);
dirsp:=dirsp+'/html/index.htm';
wb1.Navigate(dirsp);
end;

Спасибо