procedure TForm2.Button1Click(Sender:
TObject);
begin
with TSaveDialog.Create(nil) do
begin
Filter:=‘JPEG
file(*.jpg;*.jpeg)|*.jpg;*.jpeg|PNG file(*.png)|*.png|Bitmap
file(*.bmp)|*.bmp|All
Files(*.*)|*.*‘;
if Execute then
Image1.Picture.SaveToFile(Filename);
end;
end;
复制Image1到剪切板上
uses Vcl.Clipbrd;
Clipboard.Assign(Image1.Picture);
将剪贴板上的图片复制到Image上面
原文：http://www.cnblogs.com/xe2011/p/3876062.html