Прокрутка в TWebBrowser

[[MoNAMur]]

Использую TWebBrowser Для отображения теста обернутого в html.
Проблема заключается в следующем: прокрутка к низу срабатывает через раз. Т.е. иногда к верху прокручивает, а иногда к низу. Нужно, чтобы прокрутка всегда к низу была.

Вопрос: Почему так случается, и как исправить?

Код прокрутки

TWebBrowser(historyStorage).OleObject.Document.ParentWindow.Scrollto(0, TWebBrowser(historyStorage).OleObject.document.body.scrollHeight);

Полный код процедуры отображения текста

procedure DisplayHistory(historyText: string; historyStorage:TWebBrowser);
var
   sl : TStringList;
   ms : TMemoryStream;
begin
   historyStorage.Navigate('about:blank') ;
   while historyStorage.ReadyState < READYSTATE_INTERACTIVE do
      begin
          Application.ProcessMessages;
      end;
   if Assigned(historyStorage.Document) then
   begin
     sl := TStringList.Create;
     try
       ms := TMemoryStream.Create;
       try
         sl.Text := '<div style="font-family:Tahoma; font-size: 11px;">'+historyText+'</div>';
         sl.SaveToStream(ms);
         ms.Seek(0, 0);
         (historyStorage.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
       finally
         ms.Free;
       end;
     finally
       sl.Free;
     end;
   end;
   Application.ProcessMessages;
   TWebBrowser(historyStorage).OleObject.Document.ParentWindow.Scrollto(0, TWebBrowser(historyStorage).OleObject.document.body.scrollHeight);
end;