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;

procedure TForm1.AdvOutlookList1ItemClick(Sender: TObject; Item: POGLItem; Column: Integer);
begin
 // show the value of the object assigned to the item clicked
 showmessage(inttostr(integer(item.ItemObject)));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with advoutlooklist1.AddGroup('group') do
  begin
    AddChild.Add('item 1');
    // assign the object to the item
    ChildOGLItem[0].ItemObject := TObject(1);
    // assign the object to the item
    AddChild.Add('item 2');
    ChildOGLItem[1].ItemObject := TObject(2);
  end;
end; 

AdvOutlookList1.Groups[0].Expanded := false;

with AdvOutlookList1.Groups[0].InsertChild(1) do
begin
  // this inserts a new item in the first group after the first item
  Add('52256');
  Add(DateToStr(now-4));
  Add('Update website');
end; 

with AdvOutlookList1 do
begin
  // this changes column 0 & 1 text of item 1 in group 0
  Groups[0].ChildItem[1].Strings[0] := '111111';
  Groups[0].ChildItem[1].Strings[1] := datetostr(now);
  Invalidate;
end;

// add something in the first group
with AddItem(Groups[0]) do
begin
  Add('633669');
  Add(datetostr(now+1));
  Add('Development TPlanner/TDBPlanner');
end;