procedure TMainForm.catListSelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  if selected then
    showmessage('hello world');
end;