百思不得其解的“列表索引越界”。(等待ING……)

procedure TForm1.tv1DblClick(Sender: TObject);
var
a:integer;
item:tlistitem;
begin
  if tv1.Selected<>nil then //判断用户是否点击了TREEVIEW的空白区域
  begin
   if (tv1.Selected.Parent<>nil) or (tv1.Selected.getFirstChild=nil) then//判断用户是否点击了最底的节点
   begin
     if tv1.Selected.AbsoluteIndex=tv1.Tag then//判断用户是否双击了同一节点
     begin
         abort;//如果是则退出
     end
     else//如果不是则运行以下代码
     begin
         delsection('A');//删除INI文件的SECTION“A”
         delsection('B');//删除INI文件的SECTION“B”
         tv1.Tag:=tv1.Selected.AbsoluteIndex;//记录用户所双击的节点的序号
         loadlvcolumns(tv1.Selected.AbsoluteIndex);//加载相应的LISTVIEW标题
         case tv1.Selected.AbsoluteIndex of//判断
         1:
           begin
           memodata.Clear;
           loadmemolines(1);           end;
         3:
           begin
           memodata.Clear;
           loadmemolines(2);           end;         12://程序运行时双击TREEVIEW序号为12的节点
           begin
             memodata.Clear;
             loadmemolines(1);//运行成功
             a:=1;
             for a:=1 to memodata.Lines.Count-1 do
             begin
                 if memodata.Lines[a]<>'' then//运行成功
                 begin
                    item:=lv1.Items.add;
                    item.Caption:=memodata.Lines[a];
                 end;
             end;
             //FOR循环快结束时出现“列表索引越界”错误，可我新建一程序单独运行CASE12里的代码却没有出现什么问题。
           end;
         end;     end;
   end;
  end;
end;
麻烦大家看看了。唉，好不容易强迫自己准备去把程序编了，没想到就遇到这问题，郁闷……