急！求教一个关于TListView WorkArea的问题，VCL控件高手请进。

Delphi IDE 自带的标准控件TListView，指定vsIcon显示方式后，第一行的图片默认都是贴近顶端的，我想通过设置TListView的WorkArea属性，在第一行图片顶端与TListView的ClientRect顶端之间增加一段行间距，我是这样做的：设置ShowWorkArea属性为True，ViewStyle为vsIcon，指定一个ImageList并存上几张图片，然后手动添加数个Item，最后，在Form.OnCreate中添加如下代码来生成一个“工作区”：
procedure TForm1.FormCreate(Sender: TObject);
var
  w1: TWorkArea;
begin
  w1:= ListView1.WorkAreas.Add;
  w1.Rect:= Rect(0, 10, 800, 600);
end;
程序初始运行的效果是我想要的，但是问题是：
当Item较多，ListView出现VScrollBar时，滚动鼠标滚轮，第一行的行间距就会消失！！！
跟了一段时间的源代码，我还是不知道原因何在，请各位高手不吝赐教，谢谢。