ListBox中，当鼠标从一行A移到另一行B时要取消对A的占用（双击为占用），如何？？(50分)

如题

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var p:TPoint;
index:integer;
begin
p.x := x;
p.y := y;
index:=ListBox1.ItemAtPos(p,true);
ListBox1.ItemIndex:=index;
end;