急！TBitmap的SaveToFile函数保存大图片时出问题！

Question

在用TBitmap的SaveToFile函数保存大图片时出现不能保存的问题，前几天一直好用，但是不知怎么的，突然就保存不了了。生成的图片大约有3M左右，宽1米多高1米。请高手指点指点。

Answer 1

对，就是提示内存不够，下面是代码：
procedure TForm1.btn1Click(Sender: TObject);
var
  bmp : TBitmap ;
  jpg : TJPEGImage;
begin
  bmp := TBitmap.Create;
  bmp.Width := 5000;        
  bmp.Height := 4521; //这个大小已经是极限了，在大一点就抱错。
  bmp.SaveToFile('c:\temp.bmp');//有这句话时jpg.SaveToFile没问题，没有时出错。
  jpg := TJPEGImage.Create;
  jpg.Assign(bmp);
  jpg.SaveToFile('c:\temp.jpg');end;望指点，有什么好的解决方法？