在程序中应用了EmbeddedWB控件，在Form1 Creat事件中，
EmbeddedWB1.Navigate('http://www.163.com');自动打开了http://www.163.com,表单中还有一个按钮Button1,要实现的是，点击Button1后，网页的滚动条慢慢自动的向下滚动，直至到最底部，然后再慢慢向上滚动，直至到最顶部，然后停止。不知道怎么实现？
请做过的写段代码参考。谢谢。运行通过，分数全部奉上。
EmbeddedWB1.Navigate('http://www.163.com');自动打开了http://www.163.com,表单中还有一个按钮Button1,要实现的是，点击Button1后，网页的滚动条慢慢自动的向下滚动，直至到最底部，然后再慢慢向上滚动，直至到最顶部，然后停止。不知道怎么实现？
请做过的写段代码参考。谢谢。运行通过，分数全部奉上。
begin
timer1.Tag:=timer1.Tag+1;
EmbeddedWB1.ScrollToPosition(1,timer1.Tag);end;
if timer1.Tag >EmbeddedWB1.OleObject.document.body.clientHeight;