Ошибки access violation c TreeView

[noname_06]

Изучаю компонент TreeView.

Требования к программе:
В TreeView из файла загружается список категорий и сайтов, по клику в memo выводится индекс выбранного элемента + имя сайта + ссылка. Для категории ссылка = '*'. Может создавать/удалять категории и пункты. Сохраняет обратно в файл.
Ссылки хранятся в динамическом массиве, из которого выбираются по индексу выделенного узла TreeView.

Проблемы:
1) Периодически access violation при добавлении группы или пункта.
2) То же самое (всегда) при выходе из программы, хотя настройки сохраняет.
3) Правильно ли описана процедура удаления записей из TreeView+массива и расстановка ссылок с новыми индексами?
4) Периодически в файл сохраняет "лишние" записи

Чую снова с pointer'ами где-то не угадал, но пока не пойму где и что.

Добавляю группу:

procedure TForm1.btn1Click(Sender: TObject);  //add group
var
  node: TTreeNode;
  i: Integer;
begin
  node:=TreeView1.Items.Add(nil, InputBox('Новая группа','Введите имя','Group'));                      //создал раздел
  SetLength(da_links, Length(da_links)+1);                        //удлинил массив на 1
  if counter>1 then                                               //если длинне 1 элемента, то сместить к концу
  for i:=TreeView1.Items.Count downto node.AbsoluteIndex do       //от конца до нового элемента                 {было -1}
    da_links[i]:=da_links[i-1];                                   //сместить вперед на 1
  da_links[node.AbsoluteIndex]:='*';                              //в массив записать *
  node.data:=PChar(da_links[node.AbsoluteIndex]);                 //связать data с элементом массива
  lbl1.caption:=node.text;                                        //проверка-перестраховка
  lbl2.caption:=string(node.data);                                //проверка-перестраховка
end;

Добавляю пункт:

procedure TForm1.btn5Click(Sender: TObject);  //Добавить подчиненный пункт
var
  node: TTreeNode;
  i: Integer;
begin
  if TreeView1.Selected.Parent<>nil then ShowMessage('Не выбрана группа') else
  begin
    node:=TreeView1.Items.AddChild(TreeView1.Selected, edt1.Text);
    SetLength(da_links, Length(da_links)+1);                        //удлинил массив на 1
    for i:=TreeView1.Items.Count-1 downto node.AbsoluteIndex do     //от конца до нового элемента
      da_links[i]:=da_links[i-1];                                   //сместить вперед на 1
    da_links[node.AbsoluteIndex]:=edt2.Text;                        //в массив записать *
    node.data:=PChar(da_links[node.AbsoluteIndex]);
    lbl1.caption:=node.text;                                        //проверка-перестраховка
    lbl2.caption:=string(node.data);                                //проверка-перестраховка
  end;
end;
end;

Сохраняю настройки:

procedure TForm1.FormDestroy(Sender: TObject);
var F:TIniFile;
    i, counter:Integer;
    node: TTreeNode;
begin
  if FileExists('links.ldb') then                                                         //удалить файл настроек
  if not (DeleteFile('links.ldb')) then                                                   //а стоит ли?
  ShowMessage('Не могу перезаписать настройки');
  F:= TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'links.ldb');                        //создать файл с новыми настройками
  counter:=TreeView1.Items.Count;
  if counter>0 then                                                                       //если TreeView1 не пустой
  begin
    try
      F.WriteString('config', 'count', IntToStr(counter));                                //сохраняем кол-во элементов
      for i:=0 to counter-1 do
      begin
        node:=TreeView1.Items.Item[i];
        F.WriteString('names', 'name_'+IntToStr(i), node.text);                           //сохраняем имя узла
        F.WriteString('links', 'link_'+IntToStr(i), da_links[i]);                         //сохраняем ссылку или '*' для корневых ухлов
      end;
      F.Free;
    except
      ShowMessage('Не могу заполнить links.ldb');
    end;
  end
  else
  F.WriteString('config', 'count', '0');                                                  //если в списке пусто - пишем 0
  F.Free;
end;

[Человек_Борща]

Да будет вам известно о TList, TObjectList и TVirtualStringTree =)


Далее, на сколько помню, при добавлении нити, 2м параметром идет указатель, а вы туда строку пихаете. А если юзер ещё и и ничего не введет, то ваще караул
Наверняка в этом ваша проблема.
И да, вроде бы в TreeView тоже надо указывать сколько NodeData занимает, чтобы правильно дерево в памяти строить, потому 2м параметром 500% должен быть или record или Object, но не динамический массив знаков.

[noname_06]

Досадно. Про "надо указывать сколько NodeData занимает" - буду знать, спасибо. Посоветуйте, пожалуйста, компонент для визуального представления катерогий и ссылок (ака "закладки" в браузере) что бы можно было быстро производить навигацию по ним.
*До этого с TreeView не сталкивался, про pointer - читал. Так что теперь имею массу полезного опыта

**Если заменить динамический массив на stringgrid, то получим желаемый Object?

[evg_m]

  SetLength(da_links, Length(da_links)+1);                        //удлинил массив на 1
  if counter>1 then                                               //если длинне 1 элемента, то сместить к концу
  for i:=TreeView1.Items.Count downto node.AbsoluteIndex do       //от конца до нового элемента                 {было -1}
    da_links[i]:=da_links[i-1];                                   //сместить вперед на 1

и воспользуйтесь этим

[Человек_Борща]

Посоветуйте, пожалуйста, компонент для визуального представления катерогий и ссылок (ака "закладки" в браузере) что бы можно было быстро производить навигацию по ним.

так ведь написал жеж
Да будет вам известно о TList, TObjectList и TVirtualStringTree =)