Il suffit je pense de faire ton propre TForm.OnPaintl qui testera si la fiche se déplace et dans le cas où elle ne se déplace pas, déclenchera la méthode ancestrale.