Réponse acceptée !
Paint renvoi bien un format Bitmap  ... entres autres ...

il faut donc soit forcer le bon format ... soit s'adapter


{Ici on s'adapte au Format}
Procedure TForm2.Button2Click(Sender: TObject);
Begin
  If Clipboard.HasFormat(cf_Bitmap) Or ClipBoard.HasFormat(CF_METAFILEPICT)
    Or ClipBoard.HasFormat(CF_ENHMETAFILE) Then
      Image2.Picture.Assign(ClipBoard);
End;

{On utilise l'objet Graphic}
Procedure TForm2.Button1Click(Sender: TObject);
Begin
  Image1.Canvas.StretchDraw(Rect(10,10,200,200), Image2.Picture.Graphic);
End;


{Ici on force le bon format}
Procedure TForm2.Button2Click(Sender: TObject);
Begin
  If Clipboard.HasFormat(cf_Bitmap) Then
    Image2.Picture.Bitmap.Assign(ClipBoard);
End;

{On utilise le l'objet Bitmap}
Procedure TForm2.Button1Click(Sender: TObject);
Begin
  Image1.Canvas.StretchDraw(Rect(10,10,200,200), Image2.Picture.Bitmap);
End;



 
@+
Cirec

---