Voilà ce que cela pourrait donner avec une image stockée dans un TImage :

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  static int posx = 0;

  // Création d'un bitmap temporaire
  Graphics::TBitmap *bitmap = new Graphics::TBitmap();
  bitmap->Width = Width;    // Donne les dimensions du Canvas au bitmap
  bitmap->Height = Height;

  // On dessine dedans
  bitmap->Canvas->Pen->Color = clMaroon;
  bitmap->Canvas->Brush->Color = clBlack;
  bitmap->Canvas->Rectangle(0, 0, Width, Height);
  posx += 20;  // Translation en X de 20 pixels

  // Pour la demo, j'utilise une image que j'ai mis dans un TImage
  bitmap->Canvas->Draw(posx,0,Image1->Picture->Graphic);

  // On recopie le bitmap dans le Canvas de la form
  Canvas->Draw(0,0,bitmap);

  // Suppression du bitmap temporaire
  delete bitmap;
}