Listbox1.ItemIndex := treeview1.Selected.AbsoluteIndex;

Réponse acceptée !
Je ne sais pas pourquoi, mon post précédent n'apparaît pas.
Je Je remets ma solution que je n'ai pas testée, mais comme tous les contrôles listes, il te faut chercher les éléments à rajouter:

  For i:=0 to (treeview1.Items.Count-1) do
  Begin
    If treeview1.Items[i].text=listbox1.Items.Strings[listbox1.ItemIndex]
     then Treeview1.Selected:=treeview1.Items[i];
  End;

Bien à toi

Jean_Jean