Wenn du das in den MouseOver-Handler der ListBox schreibst, dann steht in ihrem Hint entweder nüscht oder der Inhalt des Items.
Delphi-Quellcode:
Var
ItemIdx : Integer;
Begin
With Sender As TListBox Do
Begin
ItemIdx := ItemAtPos((Point(X, Y)), True);
If ItemIdx = -1 Then
Hint := ''
Else
Hint := Items[ItemIdx];
End;
End;