کمک در نوشتن شرط برای WebBrowser

[1072300]

سلام
به اساتید محترم
یک فایل html در WebBrowser دلفی به صورت خودکار لود می شود می خواهم تا زمانی که کامل لود نشده دیگر فرامین اجرا نشود با چه کدی می توانم از لود شدن کامل فایل اطمینان حاصل کنم. :خجالت:

[عقاب سیاه]

فک کنم با Property Busy بتونید چک کنید

و یا ReadyState :

const READYSTATE_UNINITIALIZED = 0;
Default initialisation state.
const READYSTATE_LOADING = 1;
Object is currently loading data.
const READYSTATE_LOADED = 2;
Object has been initialised.
const READYSTATE_INTERACTIVE = 3;
User can interact with the object but loading has not yet finished.
const READYSTATE_COMPLETE = 4;
All of the object's data has been loaded.

[1072300]

اگر بخوام دو نوع دستور را اجرا کند که اگر لود کامل انجام شده بود یکسری دستور و اگر لود کامل انجام نشده یکسری دستور دیگر اجرا شود کد به چه صورت می شود؟

[عقاب سیاه]

این باید همان کاری که می خواهید را بکند:
if WebBrowser1.ReadyState = 4 then
ShowMessage('اطلاعات به صورت کامل بارگزاری شد')
else if WebBrowser1.ReadyState = 3 then
ShowMessage('روند بارگزاری اطلاعات تکمیل نشد');