for i := 0 to Count-1 do ShowMessage(Items[i].ItemId);