最简单最苯的办法是使用一个timage控件,将该图片预先装入程序中,这样就可以生成一个很大的包含图片的exevar
  horsepic:Tbitmap;
  workspace:Tpaintbox;
begin
  horsepic:=image1.Picture.Bitmap;
  with workspace.canvas do
    begin
      CopyMode := cmSrccopy;
      StretchDraw(Rect(agrid[xnum][ynum].x+12, agrid[xnum][ynum].y+18,
              agrid[xnum][ynum].x+47, agrid[xnum][ynum].y+53),horsepic);
    end;  
end;最科学的方法是使用rc