Ayuda LLenar DBTreeView con un Query

[[enecumene]]

Saludos compañeros, pues aquí regreso con una novatada, necesito llenar un DBTreeview con una consulta SQL de la siguiente manera:

Departamento
----Empleado 1
----Empleado 2
----Empleado 3
Departamento 2
----Empleado 1
----Empleado 2

Las Tablas departamentos y empleados están relacionadas por un campo ID.

esta es la consulta que estoy haciendo (estoy seguro que esta mal):

Código SQL [-]
select * from DEPARTAMENTO,EMPLEADOS where EMPLEADOS.DPTOID =  DEPARTAMENTO.DPTOID

estoy trabajando con Delphi7 y Firebird 2.0

Saludos.

PD: esta la primera vez que trabajo con esos tipos de componentes ya sea TreeView, ListView, etc., etc.