[lmikle]

как-то так:

Код:

procedure TForm1.TreeView1Change(Sender : TObject);
begin
  ListView1.Items.BeginUpdate;
  ListView1.Items.Clear;
  Case Integer(TreeView1.Selected.Data) Of
    1 :
       Begin
          ListView1.Items.AddItem.Caption := 'Item 1-1';
          ListView1.Items.AddItem.Caption := 'Item 1-2';
       End;
    2 :
       Begin
          ListView1.Items.AddItem.Caption := 'Item 2-1';
          ListView1.Items.AddItem.Caption := 'Item 2-2';
       End;
  End;
  ListView1.Items.EndUpdate;
end;

Писал прямо тут, так что сигнатуры методов проверь.
Идея - в узле дерева хранится в св-ве data некоторый уникальный идентификатор - по нему выбираем что нам надо заполнять.