Drag And Drop with Image

I want to implement customized drag'n'drop.
The customization is to attach an image[N] from the ImageList to the
drag'n'drop cursor. Even I want to change this N during the dragging
according to a position above a drag target.

There are two help sections about dragging - how to implement d'n'd with
TControl and how to drag the Image from ImageList. How to combine? I want to
begin drag on TStaticText.MouseDown, then continue above the grid and drop
to it.