With QPastor do
    begin
        //* Pega os Pastores primeiro *//
        SQL.Clear ;
        SQL.Text := ' SELECT C.ID_PASTOR, P.NOME ' +
                    ' FROM SICI_CELULA C ' +
                    ' LEFT JOIN SICI_PASTOR P on C.ID_PASTOR = P.ID ' +
                    ' GROUP BY 1,2 ';

        try
            Open;
            QPastor.First;
            while not QPastor.Eof do
            begin
                AddNode(False, clGreen).Text := 'Pastor: ' + FieldByName('NOME').AsString;

                //* Pega os coordenadores que pertence a esse Pastor *//
                With QCoordenador do
                begin
                    SQL.Clear ;
                    SQL.Text := ' SELECT C.ID_PASTOR, C.ID_COORDENADOR, CD.NOME, CD.FOTO ' +
                                ' FROM SICI_CELULA C ' +
                                ' LEFT JOIN SICI_COORDENADOR CD on C.ID_COORDENADOR = CD.ID ' +
                                ' WHERE C.ID_PASTOR = :ID_PASTOR ' +
                                ' GROUP BY 1,2,3,4 ';

                    ParamByName('ID_PASTOR').AsInteger := QPastor.FieldByName('ID_PASTOR').AsInteger;
                    Open;
                    QCoordenador.First;
                    while not QCoordenador.Eof do
                    begin
                        AddNode(True, clWhite).Text := 'Coordenador: ' + QCoordenador.FieldByName('NOME').AsString;


                        //* Pega os supervisores que pertence a esse Coordenador *//
                        With QSupervisor do
                        begin
                            SQL.Clear ;
                            SQL.Text := ' SELECT C.ID_COORDENADOR, C.ID_SUPERVISOR, CD.NOME, CD.FOTO ' +
                                        ' FROM SICI_CELULA C ' +
                                        ' LEFT JOIN SICI_SUPERVISOR CD on C.ID_SUPERVISOR = CD.ID ' +
                                        ' WHERE C.ID_COORDENADOR = :ID_COORDENADOR ' +
                                        ' GROUP BY 1,2,3,4 ';

                            ParamByName('ID_COORDENADOR').AsInteger := QCoordenador.FieldByName('ID_COORDENADOR').AsInteger;
                            Open;
                            QSupervisor.First;
                            while not QSupervisor.Eof do
                            begin
                                AddNode(True, clYellow).Text := 'Supervisor: ' + QSupervisor.FieldByName('NOME').AsString;


                                //* Pega os Líderes que pertence a esse Supervisor *//
                                With QLider do
                                begin
                                    SQL.Clear ;
                                    SQL.Text := ' SELECT C.ID_SUPERVISOR, C.ID_LIDER, CD.NOME, CD.FOTO ' +
                                                ' FROM SICI_CELULA C ' +
                                                ' LEFT JOIN SICI_MEMBRO_CELULA CD on C.ID_LIDER = CD.ID ' +
                                                ' WHERE C.ID_SUPERVISOR = :ID_SUPERVISOR ' +
                                                ' GROUP BY 1,2,3,4 ';

                                    ParamByName('ID_SUPERVISOR').AsInteger := QSupervisor.FieldByName('ID_SUPERVISOR').AsInteger;
                                    Open;
                                    QLider.First;
                                    while not QLider.Eof do
                                    begin
                                        AddNode(True, clBlue).Text := 'Líder: ' + QLider.FieldByName('NOME').AsString;


                                        //* Pega os Co-Líderes1 que pertence a esse Supervisor *//
                                        With QCoLider1 do
                                        begin
                                            SQL.Clear ;
                                            SQL.Text := ' SELECT C.ID_LIDER, C.ID_COLIDER01, CD.NOME, CD.FOTO ' +
                                                        ' FROM SICI_CELULA C ' +
                                                        ' LEFT JOIN SICI_MEMBRO_CELULA CD on C.ID_COLIDER01 = CD.ID ' +
                                                        ' WHERE C.ID_LIDER = :ID_LIDER ' +
                                                        ' GROUP BY 1,2,3,4 ';

                                            ParamByName('ID_LIDER').AsInteger := QLider.FieldByName('ID_LIDER').AsInteger;
                                            Open;
                                            QCoLider1.First;
                                            while not QCoLider1.Eof do
                                            begin
                                                AddNode(True, clBlue).Text := 'Co-Lider 1: ' + QCoLider1.FieldByName('NOME').AsString;


                                                //* Pega os Co-Líderes2 que pertence a esse Supervisor *//
                                                With QCoLider2 do
                                                begin
                                                    SQL.Clear ;
                                                    SQL.Text := ' SELECT C.ID_LIDER, C.ID_COLIDER02, CD.NOME, CD.FOTO ' +
                                                                ' FROM SICI_CELULA C ' +
                                                                ' LEFT JOIN SICI_MEMBRO_CELULA CD on C.ID_COLIDER02 = CD.ID ' +
                                                                ' WHERE C.ID_LIDER = :ID_LIDER ' +
                                                                ' GROUP BY 1,2,3,4 ';

                                                    ParamByName('ID_LIDER').AsInteger := QLider.FieldByName('ID_LIDER').AsInteger;
                                                    Open;
                                                    QCoLider2.First;
                                                    while not QCoLider2.Eof do
                                                    begin
                                                        if (QCoLider2.FieldByName('ID_COLIDER02').IsNull = False) then
                                                            AddNode(False, clBlue).Text := 'Co-Lider 2: ' + QCoLider2.FieldByName('NOME').AsString;


                                                        //* Pega os Co-Líderes3 que pertence a esse Supervisor *//
                                                        With QCoLider3 do
                                                        begin
                                                            SQL.Clear ;
                                                            SQL.Text := ' SELECT C.ID_LIDER, C.ID_COLIDER03, CD.NOME, CD.FOTO ' +
                                                                        ' FROM SICI_CELULA C ' +
                                                                        ' LEFT JOIN SICI_MEMBRO_CELULA CD on C.ID_COLIDER03 = CD.ID ' +
                                                                        ' WHERE C.ID_LIDER = :ID_LIDER ' +
                                                                        ' GROUP BY 1,2,3,4 ';

                                                            ParamByName('ID_LIDER').AsInteger := QLider.FieldByName('ID_LIDER').AsInteger;
                                                            Open;
                                                            QCoLider3.First;
                                                            while not QCoLider3.Eof do
                                                            begin
                                                                if (QCoLider3.FieldByName('ID_COLIDER03').IsNull = False) then
                                                                    AddNode(False, clBlue).Text := 'Co-Lider 3: ' + QCoLider3.FieldByName('NOME').AsString;

                                                            QCoLider3.Next;
                                                            end;
                                                        end;


                                                    QCoLider2.Next;
                                                    end;
                                                end;

                                                //* Pega o Anfitrião que pertence a essa Célula *//
                                                With QAnfitriao do
                                                begin
                                                    SQL.Clear ;
                                                    SQL.Text := ' SELECT C.ID_LIDER, C.ID_ANFITRIAO, CD.NOME, CD.FOTO ' +
                                                                ' FROM SICI_CELULA C ' +
                                                                ' LEFT JOIN SICI_MEMBRO_CELULA CD on C.ID_ANFITRIAO = CD.ID ' +
                                                                ' WHERE C.ID_LIDER = :ID_LIDER ' +
                                                                ' GROUP BY 1,2,3,4 ';

                                                    ParamByName('ID_LIDER').AsInteger := QLider.FieldByName('ID_LIDER').AsInteger;
                                                    Open;
                                                    QAnfitriao.First;
                                                    while not QAnfitriao.Eof do
                                                    begin
                                                        AddNode(True, clBlue).Text := 'Anfitrião: ' + QAnfitriao.FieldByName('NOME').AsString;

                                                    QAnfitriao.Next;
                                                    end;
                                                end;



                                            QCoLider1.Next;
                                            end;
                                        end;


                                    QLider.Next;
                                    end;
                                end;

                            QSupervisor.Next;
                            end;
                        end;

                    QCoordenador.Next;
                    end;
                end;

            QPastor.Next;
            end;