[Nyctos Kasignete]

А нельзя разве для TreeView написать обработчик события OnChange, в котором проверять, какой из пунктов выделен, и в соответствии с этим подгружать тот или иной файл?

Код:

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  if (Node.Text = 'Хард') then
    RichEdit1.Lines.LoadFromFile('D:\Hard description.rtf')
  else
    if (Node.Text = 'Видеокарта') then
      RichEdit1.Lines.LoadFromFile('D:\VCard description.rtf');
end;

Хотя на самом деле, лучше проверку делать не по тексту пункта, а по его абсолютному индексу, например. Потому что в этом случае процедура проще организуется с помощью оператора case.

Код:

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  case Node.AbsoluteIndex of
    1: RichEdit1.Lines.LoadFromFile('D:\Hard description.rtf');
    2: RichEdit1.Lines.LoadFromFile('D:\VCard description.rtf');
  end;
end;

Только в этом случае вы должны заранее точно посчитать индекс каждого пункта начиная от верхнего.