Crear arbol mediante registros en una base de datos.

[Rc96]

Buenas tardes. estoy haciendo un sistema el cual debo manejar los departamentos de una empresa. tengo en mi BD tres tablas (lvl1, lvl2, lvl3; donde cada tabla solo tiene dos campos : cod y departamento) lo hice de esta forma porque cada nivel tiene distintos departamentos. Estoy intentando traer los datos a un treeview para que quede de la siguinete forma:

+ Nivel1
departamento 1
departamento 2
departamento 3
+ Nivel2
departamento 1
departamento 2
departamento 3
+ Nivel3
departamento 1
departamento 2
departamento 3
El problema es que al traer los datos de cada tabla los inserta en el treeview pero todos en el primer nodo osea "Nivel1" y necesito que cada consulta se muestre segun el nivel que le corresponde. si pudieran decirme como decirle que la consulta de la segunda tabla lvl2 me la muestre en el nodo padre " nivel2".

aca les dejo el codigo delphi que estoy usando:

Código Delphi [-]
procedure Tfrmaggd.Button5Click(Sender: TObject);
var
  nodo0,nodo1,nodo2:Ttreenode;
  n:integer;
  nom,nom1:string;
begin
   with frmvp do
   begin
    FDQnd1.Close;
    FDQnd1.SQL.Text:=('select * from public.estruc_nvl1');
    FDQnd1.Open();
    while not FDQnd1.Eof do
    begin
     nom:=FDQnd1.FieldByName('Departamento').AsString;
     TreeView1.Items.AddChild( TreeView1.Items.Item[0], nom );
     TreeView1.Selected.Expanded := True;
     FDQnd1.Next;
    end;
    end;
      with frmvp do
   begin
    FDQnd2.Close;
    FDQnd2.SQL.Text:=('select * from public.estruc_nvl2');
    FDQnd2.Open();
    while not FDQnd2.Eof do
    begin
     nom1:=FDQnd2.FieldByName('Departamento').AsString;
     TreeView1.Items.AddChild( TreeView1.Items.Item[1], nom1 );
     TreeView1.Selected.Expanded := True;
     FDQnd2.Next;
    end;
    end;
end;

Espero puedan ayudarme. Gracias