1- Est-ce que le MonLabelMouseUp se produit bien lorsque tu arrête ton clic, quand tu fais ton "drop manuel" ?
2- As tu essayé "if ControlAtPos(APoint, False, False, True) is TShape" ?

if...