如何修改 TListItem 的 Top和Left?(100分)

我要修改 TlistItem 中图标的显示位置，如Top和Left,因为我认为其自动
显示的太松了，我要其显示的紧密一些，可是我只能改Left或Top，且只能
改一个图标的Top或Left，不能都修改！
我想请教那位高人给些帮助，我出100分不知道够不够,谢谢！
我的E-mail 是 daixianglin@263.net

为什么不用
procedure SetPosition(const Value: TPoint);

为什么不用TListItem的
procedure SetPosition(const Value: TPoint);

我的程序是这样写的
ListView1.Items[0].top:=10;
ListView1.Items[0].Left:=10;
ListView1.Items[1].top:=10;
ListView1.Items[1].Left:=10+60;
ListView1.Items[2].top:=10;
ListView1.Items[2].Left:=10+60+60;
ListView1.Items[3].top:=10;
ListView1.Items[3].Left:=10+60+60+60;
ListView1.Items[4].top:=10+60;
ListView1.Items[4].Left:=10;
ListView1.Items[5].top:=10+60;
ListView1.Items[5].Left:=10+60;
ListView1.Items[6].top:=10+60;
ListView1.Items[6].Left:=10+60+60;
ListView1.Items[7].top:=10+60;
ListView1.Items[7].Left:=10+60+60+60;
ListView1.Items[8].top:=10+60;
ListView1.Items[8].Left:=10+60+60+60+60;
ListView1.Items[9].top:=10+60;
ListView1.Items[9].Left:=10+60+60+60+60+60;
可是它们的值不能正常变,往往 left=0 了!让人奇怪!

我随便试了一下,好像没有什么问题.
btw:你的程序真是有点让人受不了,是不是按行数卖钱?

jghuang:
我是为了实验时修改方便才那样写的.
可是，我运行时每次是前4个left 变了，而后5个 top=0 了，
不信，你可以好好实验一下，谢谢你的热心

那段代码实在没有问题.
btw:只有Listview1.ViewStyle为vsIcon和vsSmallIcon时才可改Top,Left属性.

jghuang:
哦！我告诉你，我用的是 delphi3.0的版，我没有用delphi4.
我写了一个小程序，我想放在这里，可是我不知道怎么放，我
看到 茶叶蛋 会在信里夹带程序或做连接.你可以告诉我你的
e-mail 我投过去，好吗？
谢谢你的热心!
dxl
1999.4.18

你看一看他的source就明白了.
或者妹给我. huangjg@990.net

接受答案了.