begin

           BitMap:=TBitMap.Create;

           Try

              BitMap.Assign(Clipboard);

              Image2.Canvas.BrushCopy(bakrec,BitMap,C,ClRed);//拷贝指定区域的信息到指定位置

           Finally

              Image1.Canvas.DrawFocusRect(Bakrec);

              BitMap.Free;

           end;

     end;

    image1.Visible:=false;

end;

2.5  保存截取好的图像

首先创建一个TJPEGImage类，通过Assign方法将Image2载入的图像复制到本例中，然后通过读取TrackBar值来确定压缩率大小，再进行二次转换，当然压缩率越大效果越好，但也不能太大。

procedure TForm1.Button5Click(Sender: TObject);

var

     MyJPEG:TJPEGImage;

begin

 if SavePictureDialog1.execute then

  begin