关于treeview 的问题

是这样的，我通过调用系统时间，自动创建树，运行通过，点击也可生成节点，但关闭可运行文件后，再打开，生成的节点就没有了，请问：是不是没保存信息，该怎么做，谢谢。代码如下：
var
i:integer;
year,month,day:word;
str1,str2,str3:string;
mynode,mynode1,mynode2,mynode3:TTreeNode;
begin
decodedate(Now,year,month,day);
str1:=inttostr(year);
str2:=inttostr(month);
str3:=inttostr(day);
i:=treeview1.Items.Count;
mynode1:=treeview1.Items.Item[i-1];
mynode2:=mynode1.Parent;
mynode3:=mynode2.Parent;
if mynode3.Text<>str1
then begin
     treeview1.Items.Add(mynode3,str1);
     mynode1:=mynode3.GetNext;
     treeview1.Items.AddChild(mynode1,str2);
     mynode2.getFirstChild;
     treeview1.Items.AddChild(mynode2,str3);
     end
else begin
     if mynode2.Text<>str2
     then  begin
           treeview1.Items.AddChild(mynode3,str2);
           i:=treeview1.Items.Count;
           mynode:=treeview1.Items.Item[i-1];
           treeview1.Items.AddChild(mynode,str3);
           end
     else  begin
           if mynode3.Text<>str3
           then
            treeview1.Items.AddChild(mynode2,str3)
           else
            Application.MessageBox('该接点已经创建','友情提醒',MB_OK)
           end;
     end;