Редактирование файлов и TreeView

[apromix]

Привет

На форме слева TreeView, справа Memo. В TreeView структура файловой системы проекта до определенной корневой папки. Компоненты побросал, но как дальше двигаться пока не знаю

Подскажите (возможно есть пример), как сделать так, чтобы в TreeView файл выбирался и в Memo его можно было бы редактировать?

Вот код:

procedure TfQBM.ToolButton1Click(Sender: TObject);
begin
  OpenProject('');
end;

procedure TfQBM.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  if (Node.getFirstChild = nil) and (Node.data <> nil) then
  begin
    RE.Lines.LoadFromFile(String(Node.Data));
  end;
end;

procedure TfQBM.ScanDir(Dir: string);
var
  SearchRec:TSearchRec;
  I, A: Integer;
  Node: TTreeNode;
  S: string;
begin
  begin
    if Dir <> '' then if Dir[Length(Dir)] <> '\' then Dir := Dir + '\';
    begin
      FindFirst(Dir + '*.*', faDirectory, SearchRec);
      FindNext(SearchRec);
      A := FindNext(SearchRec);
      while (A = 0) do
      begin
        if (SearchRec.name = '.') or (SearchRec.name = '..') then Continue;
        if (SearchRec.Attr and faDirectory) > 0 then ScanDir(Dir + SearchRec.Name);
        begin
          TreeView1.Items.AddChildObject(nil, Dir + SearchRec.Name, PChar(Dir + SearchRec.Name));
        end;
        A := FindNext(SearchRec);
      end;
      FindClose(SearchRec);
    end;
  end;
end;

procedure TfQBM.OpenProject(PF: string);
begin
  TreeView1.Items.Clear;
  ScanDir(PF);
end;

Но это только файлы и папки текущего каталога без иерархии. Как сделать, чтобы папки содержали свои файлы?

При щелчке по папке происходит сбой