hints con item en lista !!!!!!

[[cHackAll]]

Código Delphi [-]
procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
 ListBox1.Hint := ListBox1.Items[(Y - 1) div ListBox1.ItemHeight];
 Application.ActivateHint(Mouse.CursorPos);
end;

0j0: ListBox1.ShowHint := True;