OpenClipboard(Form2.Handle); EmptyClipboard(); SetClipboardData(CF_BITMAP,Image1.Picture.Bitmap.Handle); CloseClipboard();