помогите с заданием

[slim5]

как сделать, чтобы после того как компонент shape перенесён на label выдавалось сообщение 'компонент shape перенесен на label'

[alexBlack]

Например, так:

var R:TRect;
begin
   if intersectRect(R, Label1.BoundsRect, Shape1.BoundsRect )
   then ShowMessage('intersected');