「元の図形」はマウスで動かせるの？
もしそうなら、新しい TShape のイベントをそれに関連づけたら