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;