Воссоздать иерархию по таблице

procedure TForm3.FormShow(Sender: TObject);
var
  rec:                    Trec;
  curid, curlvl, maxN, m: shortint;
  k:                      ^shortint;
 
  procedure readstring;
  begin
    with DataModule2.tree do
    begin
      rec.id := fields[0].AsInteger;
      rec.pid := fields[1].AsInteger;  
      delete;
    end;
  end;
 
  procedure searchInTable(id: shortint);
  begin
    while DataModule2.tree.fields[0].AsInteger <> id do
      DataModule2.tree.next;
    readstring;
  end;
 
  function searchInTree(id: shortint): shortint;
  var
    kk: shortint;
  begin
    for result := 0 to tv.Items.Count - 1 do                                 //<--tv - это treeview
    begin
      kk := shortint(tv.Items.Item[result].Data^);
      if kk = id then
        exit;
    end;
    result := -1;
  end;
 
  procedure readstr(id: shortint; n: shortint);
  var
    m: shortint;
  begin
    searchInTable(id);
    new(k);
    k^ := rec.id;
    tv.Items.AddChildObject(tv.Items.Item[n], inttostr(id), k);
 
    if rec.pid <> 0 then
    begin
      m := searchInTree(rec.pid);
      if m = -1 then
        readstr(rec.pid, n + 1)
      else
        readstr(rec.pid, m);
    end
  end;
 
begin
  DataModule2.copyTree.ExecSQL;
  with DataModule2.tree do
  begin
    active := false;
    active := true;
    first;
    readstring;
    new(k);
    k^ := rec.id;
    tv.Items.AddObject(nil, inttostr(rec.id), k);
    while RecordCount > 0 do
    begin
      first;
      m := searchInTree(rec.id);
      if m = -1 then
        readstr(rec.pid, 0)
      else
        readstr(rec.pid, m);
      first;
      if RecordCount > 0 then
        readstring;
    end;
 
  end;
end;