цвет фона webbrowser

[grom333]

Я в любой момент времени изменяю цвет фона в TWebbrowser

col.Execute;
WebBrowser1.OleObject.Document.bgColor := col.Color;

Но после переключения страницы он становится таким какой есть на самом деле. В конце кода переключения страницы вставил тот же код

col.Execute;
WebBrowser1.OleObject.Document.bgColor := col.Color;

Эффекта ноль. Что нужно сделать?
========
(кстати, заметил что он на миллисекунду перекрашивается, и пока страница переключается, исчезает этот цвет)

[grom333]

Разрешил проблему событием проверки конца загрузки:

procedure TForm3.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  while WebBrowser1.ReadyState<>4 do
  Application.ProcessMessages;
  WebBrowser1.OleObject.Document.bgColor :=col.color;
end;