Delphi, How to make DragAndDrop for toolbar

[RusSun]

Hello.

I'm using KOL - Key Objects Library.
How to implement in the program, there is a Toolbar with buttons and a form with a paintbox.
Is it possible to do the following when pressing the button on the icon appeared
the cursor as in DragAndDrop and after the picture was drawn on the paintbox.
That is, it is not necessarily true DragandDrop. It is possible to confine only to changing the type of cursor.
https://yadi.sk/i/6ovsPsZyIGxvGQ
among those represented in KOL_ansi.inc there is none.
const
 IDC_ARROW = MakeIntResource (32512);
 IDC_IBEAM = MakeIntResource (32513);
 IDC_WAIT = MakeIntResource (32514);
 IDC_CROSS = MakeIntResource (32515);
 IDC_UPARROW = MakeIntResource (32516);
 IDC_SIZE = MakeIntResource (32640);
 IDC_ICON = MakeIntResource (32641);
 IDC_SIZENWSE = MakeIntResource (32642);
 IDC_SIZENESW = MakeIntResource (32643);
 IDC_SIZEWE = MakeIntResource (32644);
 IDC_SIZENS = MakeIntResource (32645);
 IDC_SIZEALL = MakeIntResource (32646);
 IDC_NO = MakeIntResource (32648);
 IDC_HANDs = MakeIntResource (32649);
 IDC_APPSTARTING = MakeIntResource (32650);
 IDC_HELP = MakeIntResource (32651);

Or DragAndDrop from the Toolbar can transfer the finished objects to the form. Which in turn contain all the necessary fields with info (color, size, point or points and so on).

Generally interested in any information-). Thank you in advance.

Edited February 13, 2019 by RusSun
lost Information

[X-88]

maybe you can see the default demo / example from delphi

C:\prog..fil..(x86)\Borland\Delphi7\Demo\editor\

#cmiiw

[RusSun]

which one?