请问在程序运行时，怎么实现从粘贴图像到Image（或其他控件）中(50分)

要实现当程序运行时，在粘贴复制的图像（Image 识别的各种格式的图像）到程序中的Image空件中（或其他可以实现这种操作的控件中）
没分了，高手帮帮忙！

先把粘贴的图像复制到一目录里，再设置Image空件的属性。不知可行否？

bmp:=TBitmap.Create;
try
bmp.Assign(Clipboard);
bmp.SaveToFile(sbmpFile);
result:=true;
finally
bmp.Free ;
end;
----------以上代码只要Clipboard中图片内容 绝对可行!

看 不太懂，能不能详细点
谢谢！

大致思路：
1、讲图像复制到粘贴版
2、image从粘贴版中获取数据

只要知道如何复制到粘贴版，如何从粘贴版复制，那么实现的具体方法不是难点

To egetrich
sbmpFile是指什么

在 网上找到下面这个程序，但是一粘贴JPEG格式的就提示错误，而我要粘贴的图像确恰恰大部分是这种格式的，请高手帮帮忙
procedure TForm1.Button1Click(Sender: TObject);
var Bitmap:TBitmap;
begin
if Clipboard.HasFormat(CF_BITMAP) then
begin
Bitmap:=TBitmap.Create;
Bitmap.Assign(Clipboard);
Image1.Canvas.Draw(0,0,Bitmap);
FreeAndNil(Bitmap);
end;
end

没有时间研究你的问题 给你一个BMP与JPG格式相互转换的 自己搞定啊
-------------------------
function Bmp2Jpg(sBmpFile,sJpgFile:string):boolean;
var
tmpBmp:Tbitmap;

ExmJpeg:TJpegimage;
begin
result:=false;
ExmJpeg:=TJpegimage.Create;
try

tmpBmp:=TBitmap.Create;
try
tmpBmp.LoadFromFile(sBmpFile);
exmJpeg.Assign(tmpBmp);
ExmJpeg.CompressionQuality:=70;
ExmJpeg.SaveToFile(sJpgFile);
result:=true;
finally
tmpBmp.Free;
end;
finally
ExmJpeg.Free ;
end;
end;
function Jpg2Bmp(sJpgFile,sBmpFile:string):boolean;
var
tmpBmp:Tbitmap;

ExmJpeg:TJpegimage;
begin
result:=false;
ExmJpeg:=TJpegimage.Create;
try

tmpBmp:=TBitmap.Create;
try
exmJpeg.LoadFromFile(sJpgFile);
tmpBmp.Assign(exmJpeg);
tmpBmp.SaveToFile(sBmpFile);
result:=true;
finally
tmpBmp.Free;
end;
finally
ExmJpeg.Free ;
end;
end;