listbox1.ItemAtPos方法

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,   Y: Integer);
  var s:tpoint;
begin
s.X:=x;
s.Y:=y;
   Label1.Caption:= listbox1.Items.Strings[listbox1.ItemAtPos(s,true)];
end;