how to move two bitmap-image on a canvas

Question

I am writing an animation program under Delphi 7 consisting of moving two discs on a canvas (I choose a PaintBox) with a bounce effect on the edges.

it\'s woks fine if I