TTreeview too slowly when adding TTreenode(s)

In article <01bd9703$b5f880e0$7d1e67d1@m>, "Seb_Nath" <seb2...@biogate.com>
writes:

Quote
>Anyone have an idea or can help me ?

How fast is slow. My TTreeView takes 2mS / node to add nodes(text and an
enumerated value and some skipping of duplicates) from a query with a 100Mhz
32Mb Pentium with Delphi 2. Is this fast or slow ? - How many nodes are you
adding.

This is my code :-

    with TreeView1.Items do
      while not EOF do begin
        Node1 := AddChild(nil, Query1Data.AsString);
        Node1.Data := pointer(ndTitle);
        FileName := Query1File.AsString;
        Next;
        while (Query1File.AsString = FileName) and (not EOF) do begin
          Node2 := AddChild(Node1, Copy(Query1Type.AsString, 3, 7));
          Node1.Data := pointer(ndType);
          TagType := Query1Type.AsString;
          while (Query1Type.AsString = TagType) and (not EOF) do begin
            DataText := Query1Data.AsString;
            with AddChild(Node2, Query1Data.AsString) do
              Data := pointer(ndFile);
            repeat
              Next;
            until not ((Query1Type.AsString = TagType)
                       and (Query1Data.AsString = DataText)
                       and not EOF); {prevents duplicates}
          end; {while same Type}
        end; {while same File}
      end; {while not EOF}
    {end; with TreeView1}
end;