Связать TreeView с текстовыми файлами

[Marsel737]

Всем доброго времени суток.

Хочу при клике по пункту дерева загружать опрееделённый текстовый файл, но вот такой код не работает:

procedure TfrmMain.tvNavigationChange(Sender: TObject; Node: TTreeNode);
var
  CrPath: string;
begin
  case tvNavigation.Selected.AbsoluteIndex of
    0:
      FPath := 'a';
    1:
      FPath := 'b';
    16:
      FPath := 'c';
  end;
  CrPath := ExtractFilePath(Application.ExeName) + 'Data\' + FPath + '\' +
    IntToStr(tvNavigation.Selected.Index) + '\Description.txt';
  if FileExists(CrPath) then
    memDescription.Lines.LoadFromFile(CrPath);
end;

Т.е. сначала я хочу определить какой именно пункт открыт, а потом какой подункт, структура будет только двухуровневая

[spamer]

Если правильно понял, хотя не факт, то вроде вот так:

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
  APath: string;
begin
  case Node.Index {SelectedIndex} of
    0: APath := 'C:\t1.txt';
    1: APath := 'C:\t2.txt';
    2: APath := 'C:\t3.txt';
  end;
  if APath <> '' then
  Memo1.Lines.LoadFromFile(APath);
end;

Если говорите структура 2х двухуровневая, то тогда скорее всего так:

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
  APath: string;
begin
  case Node.SelectedIndex of
    11: APath := 'C:\t1.txt';
    22: APath := 'C:\t2.txt';
    33: APath := 'C:\t3.txt';
  end;
  if APath <> '' then
  Memo1.Lines.LoadFromFile(APath);
end;

[Stilet]

какой именно пункт открыт

А не проще ли связать ветки с именами файла?
Допустим есть TStringList с именами файла. Тогда а поле Data веток записывай индекс строки в этом Листе, и у тебя будет связка.