Pour le texte, il faut remplacer

TextX := 8;
TextY := 8;

par

TextX := ViewRect.Right - 8 - Extent.cx;
TextY := ViewRect.Bottom - 8 - Extent.cy;

Pour l'image il faut remplacer par

    for I := 0 to Counter-1 do
      DrawBitmapAtTimeTo(ImgBitmap, TickCount, Bitmap, 8 + Increment*I, 8);

par qqch comme :

    for I := 0 to Counter-1 do
      DrawBitmapAtTimeTo(ImgBitmap, TickCount, Bitmap, ViewRect.Right - 8 - Increment*(I+1),
        ViewRect.Bottom - 8 - ImgBitmap.Height);

J'ai pas testé.

Ca marche très bien, enfin pour le texte. Désolé pour t'avoir fait faire le code pour les images, je pensais que ce serait la même chose que pour le texte.

Pas de soucis. C'est pas comme si ça m'avait pris 5 minutes