TreeView: индексы - ошибка. Код на паскале

[novicepro]

В строке

for i:=0 to Length(tmp)-1 do

, если ставить до 2, то работает нормально, если до 3 и более, то ошибка. В чем я сделала ошибку, при написании кода? Подскажите, пожалуйста.

var
  str,str2,tmp:string;
  i,j:integer;
begin
  TreeView1.Items.Clear;
  TreeView1.FullExpand;
  TreeView1.Items.Add(nil, Edit3.Text);
  tmp:=Edit3.Text;
  for i:=0 to Length(tmp)-1 do
  begin
    str:=Copy(tmp,i+1,2);  
    for j:=0 to Memo1.Lines.Count-1 do
    begin
      str2:=Copy(Memo1.Lines[j],1,2);
      if str=str2 then
      begin
        TreeView1.Items.AddChild(TreeView1.Items.Item[i], Copy(tmp,1,i) + Copy(Memo1.Lines[j],7,2) + Copy(tmp,i+3,Length(tmp)-2-i));
        tmp:=TreeView1.Items[i+1].Text;
      end;
      str2:='';
      Memo2.Lines.Add(tmp);
    end;
  end;


end;

[novicepro]

Нашла место, где ошиблась