请问是不是delphi2009的bug(100)

我在delphi2009下使用scrollbox的ConstrainedResize事件代码如下：procedure TForm1.ScrollBox1ConstrainedResize(Sender: TObject; var MinWidth, MinHeight, MaxWidth, MaxHeight: Integer);beginedit1.Text:=IntToStr(ScrollBox1.VertScrollBar.Position);end;代码实现为当移动滚动条时，edit显示滚动条位置，在delphi7下已经通过，但在delphi2009时出现问题，拉动滚动条时edit不变，但当移动窗体时edit居然变化，每拉一次滚动条就需要移动窗体一下才能改变edit的值，我是初学者，请教各位应当怎么办，谢谢！

试了下。09好像是不行。。你弄个TIMER ，100毫秒一次edit1.Text:=IntToStr(ScrollBox1.VertScrollBar.Position);