As a quick thought try the following for the root nodes:

  if (TreeViewCompts.Items.Count = 0) then
    begin
      {Add the root node}
      TreeViewCompts.Items.Clear; {remove any existing nodes}
      Node := TreeViewCompts.Items.Add( NIL ,Name); {Add
the root node}
    end;
....

Stephen 
---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED] 
with body of "unsubscribe delphi"

Reply via email to