Fórum Como detectar item do ListBox sem selecionar? #203063

var
  Item: Integer;
begin
  Item := ListBox1.ItemAtPos(Point(X, Y), True);
  if Item >= 0 then
  begin
    // caption recebe o texto do item sob o mouse
    Caption := ListBox1.Items[Item];
  end
  else
  begin
    // o mouse paira sobre nenhum item
    Caption := ´´;
  end;
end;

procedure TfrmManager.ListBox1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var
  TheIndex: Integer;
begin
  if not (Sender is TListBox) then exit;
  // O último parâmetro (booleano) indica se você quer que retorne
  // -1 (True) ou o índice do último item (False) quando o mouse não
  // estiver sobre item algum.      
  TheIndex := TListBox(Sender).ItemAtPos(Point(X, Y), True);
  // Faça o que quiser com a TheIndex
end;