急::如何在自己的函数中调用procedure ScrollBar1Scroll(Sender:TObject;ScrollCode:TScrollCode;var ScrollPos:Integer);

Question

问题描述:
在一个Form中放了一个Picture控件,上面显示一副图片,Form上放了竖直和水平两个方向条(平时隐藏),当图片放大到Form的Client区域值时,滚动条显示出来,通过滚动条拖动浏览图片.当滚动条不在最上或最左时缩小图片之后,图片显示不是就缺少了上面或左面的部分区域,而此时滚动条已经隐藏了.
现在想在图片缩小处理的函数中加如滚动条处理过程,将滚动条放到默认的最上或最左,但直接调用ScrollBar1Scroll时,第二个参数TScrollCode不知道如何付值,查帮助是个枚举类型,带入scEndScroll时提示不识别此变量,用发送消息(WM_HSCROLL)的方法,HANDLE带Form和Picture的handle都不行,触发不了,不知道如何解决?希望有朋友知道给个帮助!谢谢!(不知道我问题描述清楚没有)