大家帮忙一下！如何确保从剪贴板保存到硬盘的文件大小跟原文件一致。(200分)

//控件：2个image，
//保存到剪贴板
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
image2.Picture.LoadFromFile(opendialog1.FileName);
ClipBoard.Open;
ClipBoard.Assign(image2.Picture);
ClipBoard.Close;
end;
end;


//剪贴板保存到硬盘。
procedure TForm1.Button2Click(Sender: TObject);
var
map : TBitmap;
begin
if ClipBoard.HasFormat(CF_BITMAP) then //首先需要判断剪贴板是否有图象
begin
map := TBitMap.create;
try
map.Assign(ClipBoard);
except
map.Free;
end;
Image1.Picture.Assign(map);
map.SaveToFile('c:/1111.jpg');
map.Free;
clipboard.Clear;
end；

end;


1：问题出来了，我发现从剪贴板保存到硬盘的图片大小跟原文件不一样，格式都是JPG。
2：如何跳过使用IMAGE，换用流来保存图片呢？确保图片大小一致

剪贴板和源文件的图片格式并不是一样的啊

那我应该怎么做才能达到我要的结果呢？
确保图片大小一致

帮顶

帮一下我啊

.....

顶

map 不可以直接存？

TBitmap.SaveToFile();

另外这里有例子
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2566058