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;