je vous demande un programme qui déplace un composant tshape pendant l'éxecution d'une application delphi