procedure TInsertICDForm.FillTree;
var N, N1: TTreeNode;
    parntidx, idx, j, oldparentid: Integer;
begin
 ICDTree.Visible:=False;
 N1:=Nil;
 with DataForm.ICDTable, ICDTree
  do begin
      oldparentid:=-1;
      Items.BeginUpdate;
      Open;
      while not EOF
       do begin
           idx:=Fields [0].AsInteger;
           parntidx:=Fields [1].AsInteger;
           if oldparentid<>parntidx
            then begin
                  N1:=nil;
                  for j:=0 to Items.Count-1
                   do if Integer (Items [j].Data)=parntidx
                       then begin
                             N1:=Items [j];
                             oldparentid:=parntidx;
                             Break;
                            end;
                 end;
           N:=Items.AddChild (N1, Fields [2].AsString);
           N.Data:=Pointer (idx);
           N.SelectedIndex:=0;
           N.OverlayIndex:=0;
           Next;
          end;
      Close;
      Items.EndUpdate;
      Visible:=True;
     end;
end;