Чтение пунктов TreeView из текстового файла

[DEVDITS]

Доброго времени суток! У меня к вам такой вопрос. Как можно сделать так, чтобы TreeView читал пункты и подпункты из текстового файла. Я попытался сделать так :
{--------------------------------}
assignfile(F,'tree.txt');
reset(F);
while not EOF(F) do begin
inc(i);
readln(F,str1[i]);
if str1[i]='конец' then begin
for j:=i to 49 do begin
TreeView1.Items.Item[j-1].Delete;
end;
end
else begin
TreeView1.Items.Item[i-1].Text:=str1[i];
end;
end;
{---------------------------------}
но он мне выводит ошибку : InvalidIndex. Хотя я заранее сделал(согласен это тупо, но ...) 50 свободных пунктов в TreeView. Как сделать это всё без вот такого маразма? Заранее благодарю

[Fainder]

А чем тебе не нравятся стандартные
TreeView1.SaveToFile(Filename : string);
и TreeView1.LoadFromFile(Filename : string);

[DEVDITS]

Чтойто я о них не подумал. =) Но я уже сделал. кому вдруг понадобится можете спросить, объясню =). Я с DELETE-ом не мог разобраться в TreeView, а теперь разобрался =)