Procedure TWPImageListItem.SetImage(x:TPicture)Unit: WPUtilClass: WPUtil.TWPImageListItemParameters x:TPicture