Hola, También uso ese componente, lo que sucede es que al asignar un manejador para el evento OnDrawItem nos hacemos responsables del dibujado de toda el área que debe ocupar dicho Item, incluida el área de la imagen, según el código que pones de muestra solo dibujas el texto que se encuentra almacenado en la propiedad caption, por lo cual es lógico que no aparezca ninguna imagen.
Si deseas que se muestre la imagen que tiene asociada en el ImageList deberás hacer algo como esto en ese mismo evento:
Código Delphi
[-]
ACanvas.Draw(Rect.Left,Rect.Top+2,Bitmap);
ACanvas.TextOut(Rect.Left+Bitmap.Width+5, Rect.Top + 2 , Item.caption);
Lo curioso es que el efecto final de este código es muy parecido a lo que muestra el componente por defecto, cabría preguntarse que objetivo persigues con el mismo.
Saludos