Po mojemu tak:

o — objekt InternetExplorer.Application

o := CreateOleObject('ADODB.Recordset');
o.Open('about:blank');
o.Navigate('http://www.rsdn.ru');
o.Visible := true;
while (o.ReadyState<>4) do sleep(10);


// Constants for enum tagREADYSTATE
type
tagREADYSTATE = TOleEnum;
const
READYSTATE_UNINITIALIZED = $00000000;
READYSTATE_LOADING = $00000001;
READYSTATE_LOADED = $00000002;
READYSTATE_INTERACTIVE = $00000003;
READYSTATE_COMPLETE = $00000004;



sorry za translit