在listview 中实现拖动鼠标来选择多条记录？该怎么解决

var
  item:TListItem;
begin
  item := ListView1.GetItemAt(X,Y);
  if item <> nil then
    item.Selected := True;
end;

------解决方案--------------------

MouseMove事件一直在出发，注意性能，判断当前的Item是否已选中以及当前的Item是否已改变为其他的。