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;

var
  ac: TAdvCard;
begin
  ac := AdvCardList1.Cards.Add;
  ac.Caption := 'The employee';
  ac.ItemList[0].AsString := 'My Name';
  ac.ItemList[1].AsString := 'My Company';
  ac.ItemList[2].AsInteger := 1025;
end 

// sets scroll position to first column
AdvCardList.LeftCol := 0;

with AdvAlertWindow1.AlertMessages.Add do
begin
  Text.Text := 'This is an alert with <b>HTML</b> formatted text.';
  AdvAlertWindow1.Show;
end;

var
mnu,mnus:TMenuItem; 
begin 
  mnu := TMenuItem.Create(advmainmenu1); 
  mnu.Caption := 'New Menu'; 
  mnus := TMenuItem.Create(advmainmenu1);
  mnus.Caption := 'New Sub Menu';
  advmainmenu1.BeginUpdate;
  advmainmenu1.items.Add(mnu);
  advmainmenu1.Items[4].Add(mnus);
  advmainmenu1.EndUpdate;
end;