关于 TListView 控件的 SelectItem 事件的触发(50分)

ListView1: TListView ;
当执行代码：
ListView1.ItemIndex := 0 ;
的时候，ListView1的SelectItem事件会被触发。
这时，用鼠标点击ListView1的第一行，
ListView1的SelectItem事件又会被再次触发。
请问怎么样才可以做到：
设置了：ListView1.ItemIndex := 0 ;
后
鼠标点击ListView1第一行时，不再触发SelectItem事件。

procedure TForm1.lv1SelectItem(Sender: TObject;
Item: TListItem;
Selected: Boolean);
begin
if Selected and (lv1.Tag = Integer(Pointer(Item))) then
Exit;
// 再次触发时
lv1.Tag := Integer(Pointer(Item));
if not Selected then
Exit;
if Assigned(Item) then
ShowMessage(Item.Caption);
end;

完美解决，谢谢啦。。。。