procedure DrawItem(Item: TListItem; Rect: TRect; State: TOwnerDrawState); override;