Работа с TreeView

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;
 
type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses StrUtils;
 
{$R *.dfm}
 
procedure TForm1.Button2Click(Sender: TObject);
begin
//сохранить
//меняем сегодня и вчера на дату
TreeView1.SaveToFile('tree.txt');
//меняем дату на сегодня и вчера
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
//загрузить
TreeView1.LoadFromFile('tree.txt');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  s : String;
  pz, i : Integer;
  tn0, tn1, tnf : TTreeNode;
begin
//Добавить
s := Edit1.Text;
pz := AnsiPos('//',s);
Delete(s, 1, pz+1); //удаляем по //
pz := AnsiPos('/',s);
s := AnsiMidStr(s, 1, pz-1);
 
//поиск Сегодня
 
//Доступ к сегодня
tn0 := TreeView1.Items.Item[0];
//Поиск нужного
tnf := nil;
if tn0.Count > 0 then
  begin
  i:= 0;
  while (tnf = nil) and (i < tn0.Count) do
    begin
    tn1 := tn0.Item[i];
    if tn1.Text = s then tnf := tn1;
    Inc(i);
    end;
 
  //если не нашли, то добавим
  if tnf = nil then
    begin
    tn1 := TreeView1.Items.AddChild(tn0, s);
    //добавим всю строку
    TreeView1.Items.AddChild(tn1, Edit1.Text);
    end
  else
    begin
    //если нашли, то добавляем к нему
    //добавим всю строку
    TreeView1.Items.AddChild(tnf, Edit1.Text);
    end;
  end;
 
end;
end.

if TreeView1.Selected.Index=2 then
ShowMessage('aaa');