uses
  AdvOutlookList, OutlookGroupedList;

procedure TForm1.Button1Click(Sender: TObject);
var
  p,c: poglitem;
  sl: TStrings;
begin
  p := AdvOutlookList1.RootItem.FirstChild;

  while assigned(p) do
  begin
    sl := advoutlooklist1.GetItemData(p);
    if Assigned(sl) and (sl.Count > 0) then
      listbox1.Items.Add(sl.Strings[0]);

    c := p.FirstChild;
    while assigned(c) do
    begin
      sl := advoutlooklist1.GetItemData(c);
      if Assigned(sl) and (sl.Count > 0) then
        listbox1.Items.Add('-'+sl.Strings[0]);
      c := c.NextSibling;
    end;

    p := p.NextSibling;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  advoutlooklist1.TestFill;
end;