{On récupère le contenu du presse papier dans un TImage et on l'affiche} procedure TForm1.Button1Click(Sender: TObject); begin if Clipboard.HasFormat(cf_BITMAP) then Image1.Picture.Bitmap.Assign(Clipboard); end;