J'ai beau parcouru les FAQ mais j'ai pas trouvé la solution
Il s'agit en fait d'affecter Image1 à Image2.
J'ai essayé mais cela génère une erreur.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Graphics::TBitmap *FormImage = Form1->Image1->Picture->Bitmap;
  try
  {
    Clipboard()->Assign(FormImage);
    Form1->Image2->Picture->Assign(Clipboard());
  }
  __finally
  {
    delete FormImage;
  }
J'ai voulu aussi effacé Image1 après mais ma technique est nulle selon d'autres développeurs:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Form1->Image1->Canvas->FillRect(Rect(Form1->Image1->Top, Form1->Image1->Left, Form1->Image1->Width, Form1->Image1->Height));
SOS !!!