Preciso de ajuda com Delphi XE2

E assim eu tenho que fazer m programa e no programa tenho que fazer um labirinto... já fiz o mais fácil do labirinto que era não deixar o cursor do mouse sair do form fazer um modo fácil e um difícil os obstáculos com TShape tenho dez TShape como obstáculos quero que quando eu por o mouse em cima do TShape quero dar application.messagebox yes/no com que o yes faca o um cursor do mouse ir para um determinado local do form e no eu já sei fazer que era parar fechar o programa alguem poderia me ajudar ??