with Form1.ListBox1 do
Items.Add(IntToStr(p.X) + ' ' + IntToStr(p.Y));
//是否这句的问题?
鼠标事件太频繁了
with Form1.ListBox1 do
being
if (Items.Count>100) then
Items.Clear;
  Items.Add(IntToStr(p.X) + ' ' + IntToStr(p.Y));
end;