请高手指点， 滚屏问题？ 急！！！！！！！！！！(100分)

我自己写了一个如下
TMLPage=class(TObject)
........
property Pages[index:Integer]:TMetafileCanvas read GetPages write SetPages;
property PageRect:TRect read FPageRect write SetPageRect;
........
end;
我想用两个滚动条（水平/垂直）来控制显示页数和页面宽度，每一页的大小就是PageRect
如何实现象WORD一样的滚屏效果，请高手指点，急！！！！！！！！

根据滚动条的指示，及时更新显示内容。

高手帮忙呀！！！！
我自己做一个，但是闪的好历害， 请高手帮忙呀？？？？？？

为什么要自己做，Delphi 本来就推荐使用 TScrollBox，
在 TScrollBox 中放一个 TImage 或 TPaintBox，你只要
设置好 TImage / TPaintBox 的大小，滚屏由 TScrollBox
来管理。这东东的计算比较繁，从 TCustomControl 派生的
东东都可以实现，不过是需不需要你手工计算就是了。自己放置
TScrollBar 不太好，有焦点问题，闪啊闪的，不好看