[roman]

El array ya lo tienes: TreeView.Selections. Sólo tienes que recorrerlo:

Código Delphi [-]
var
  Nodo, Padre: TTreeNode;
  Indice: Integer;

begin
  for Indice := 0 to TreeView1.SelectionCount - 1 do
  begin
    Nodo := TreeView1.Selections[Indice];
    Padre := Nodo.Parent;

    {
      haces lo que tengas que hacer con el nodo y su padre
    }
  end;
end;

// Saludos