Bookmarks and outlines help

can someone please give me an example which lists all the SUB bookmarks in the pdf file

 i can list all the main topic bookmarks but am having problems with exapanding bookmark lists

eg i use delphi

my current code is

          OutlineCount := qp.OutlineCount ;
          StatusBar1.Panels[1].Text := 'bookmark Total  =  ' + inttostr(OutlineCount );

//'-- Loop through Outline

id := QP.GetFirstOutline;

         qp.OpenOutline(id);
begin

  while id > 0 do
    begin
       title := QP.OutlineTitle(id) ;
   // If title=term Then
        page := QP.GetOutlinePage(id) ;
        id := QP.GetNextOutline(id)  ;

             globals.bookmarksLine := globals.TbookmarksLine.Create(Page, title,id);

           formmainnew.BookmarksList.Add(bookmarksLine);

          end;

end;

thank you