Delphi CXTreeList 自动添加列与行？

自动添加A~Z列时很奇怪，A~z都往后挪了一格？从TEXT文本导入数据时，少了一条记录？记录原来有三条的
ID:1
Name:张三
Sex:男
少了一条  Sex:男以下是我的代码，TreeList是两个不现的TreeList，分别是TreeList,TreeListShow,请大家帮帮忙哈，不胜感激，奉上我的全部分了！
procedure TForm1.FormCreate(Sender: TObject);
var
  Root: TcxTreeListNode;
  sData,saveTxt :TStringList;
  str,str2,Path,MyData :String;
begin
 // 保存加载进来的全部内容
   sData := TStringList.Create;
   Path  := ExtractFilePath(Application.ExeName);
   sData.LoadFromFile(Path +'Result.txt');
//   保存截取的文本
   saveTxt := TStringList.Create;
   saveTxt.Delimiter := ':';   for i := 0 to sData.Count -1 do
   begin
     Str := sData[i]; //STR保存读取进来的一条记录
     saveTxt.DelimitedText := Str;
     Root := TreeList.Add;
     for j:=0 to savetxt.Count-1 do
     begin
        Root.Values[j] := savetxt[j]; 
     end;   end; 
   SData.Free;
   saveTxt.Free;
   Root.Free;
 //自动添加A~Z列
  for m := 0 to 25 do
   begin
     TreeListShow.CreateColumn(TreeListShow.Bands[0]);
     TreeListShow.Columns[M].Caption.Text :=  MyData[M];
     TreeListShow.Columns[M].Caption.AlignHorz := taCenter;
     TreeListShow.Columns[M].Width := 50;
   end;
end;