یک سورس کد دلفی خوب - چطور میشه با حرکت موس روی listbox آیتم زیر اون انتخاب بشه

کاری که باید انجام بشه اینه که روی رویداد مربوط به حرکت موس در لیست باکس برنامه زیر را بنویسیم.
در این برنامه بسته به اینکه موس کجا قرار گرفته ، آیتم مربوط به لیست باکس فعال میشه.

procedure TForm1.ListBox1MouseMove
   (Sender: TObject; Shift: TShiftState; X, Y: Integer) ;
begin
   ListBox1.ItemIndex := ListBox1.ItemAtPos(Point(x,y), True) ;
end;