Как копировать и вставлять картинки через буфер обмена?

Code:

Clipboard.Assign(Image1.Picture); 

Code:

// Copy form1 as bitmap into the clipboard

procedure TForm1.Button1Click(Sender: TObject);

var

  imgWindow: TBitmap;

begin

  imgWindow := GetFormImage;

  try

    Clipboard.Assign(imgWindow);

  finally

    imgWindow.Free;

  end;

end;

// Save the bitmap to a file

// Das Bitmap in einer Datei speichern:

procedure TForm1.Button2Click(Sender: TObject);

var

  imgWindow: TBitmap;

begin

  imgWindow := TBitmap.Create;

  try

    imgWindow := Form1.GetFormImage;

    imgWindow.SaveToFile('c:\FormImage.bmp');

  finally

    imgWindow.Free;

  end;

end;