Image in Drag&Drop operations

Hi!

How to use image on drag&drop operations for control? I did that:

============================
type
  TPlayCard = class(TCustomControl)
  private
    FDragImageList:TDragImageList;
  public
    function GetDragImages: TDragImageList; override;
  end;

function TPlayCard.GetDragImages: TDragImageList;
begin
if FDragImageList=nil then
   begin
   FDragImageList:=TDragImageList.CreateSize(32,32);
   FDragImageList.AddIcon(Application.Icon); { for example}
   FDragImageList.SetDragImage(0,1,1);
   end;
Result:=FDragImageList;
end;

==============================

Drag operations works fine, function is called, but used only cursor. :(

Thanks
--
Sergey Kachalov
http://www.mtu-net.ru/gray