var
 h: HWND;
 . . . . . . . .
// если время ожидания вышло - рубим прогу:
 h:=findWindow(nil,'Мой компьютер'); // Вместо "Мой компьютер" заголовок окна твоей проги.
 if h<>0 then
   CloseWindow(h);

procedure TForm1.N2Click(Sender: TObject);
var
    x1,X2: TTreeNode;
    s1,s2: TStringList;
begin
x1:= TreeView1.Items.AddChild(nil,'One');
TreeView1.Items.AddChild(x1,'One_1');
s1:= TStringList.Create;
s1.LoadFromFile('text_1.txt');

// Вот тут надо прикрепить к дочернему узлу x1 TStringList с содержимым текстовика text_1.txt

x2:= TreeView1.Items.AddChild(nil,'Two');
TreeView1.Items.AddChild(x1,'Two_1');
s2:= TStringList.Create;
s2.LoadFromFile('text_2.txt');

// Вот тут надо прикрепить к дочернему узлу x2 TStringList с содержимым текстовика text_2.txt
end;

procedure TForm1.N2Click(Sender: TObject);
var
    x1,X2: TTreeNode;
    s1,s2: TStringList;
begin
x1:= TreeView1.Items.AddChild(nil,'One');
TreeView1.Items.AddChild(x1,'One_1');
s1:= TStringList.Create;
s1.LoadFromFile('text_1.txt');
x1.Data:=Pointer(s1);
// Вот тут надо прикрепить к дочернему узлу x1 TStringList с содержимым текстовика text_1.txt

x2:= TreeView1.Items.AddChild(nil,'Two');
TreeView1.Items.AddChild(x1,'Two_1');
s2:= TStringList.Create;
s2.LoadFromFile('text_2.txt');
x2.Data:=Pointer(s2);
// Вот тут надо прикрепить к дочернему узлу x2 TStringList с содержимым текстовика text_2.txt
end;

i:longint;

for i:=0 to TreeView1.Items.Count-1 do
begin
         (TreeView1.Items[i].Data as TStringList).Free;
end;