一点提示，希望能帮你的忙：
var
R: TRect;
Src, Dst: TBitmap;
begin
R := Rect(20, 20, 100, 100); // R可以设为所需的值
Src := TBitmap.Create;
Dst := TBitmap.Create;
Src.LoadFromFile(SrcFile); // SrcFile是源文件名
Dst.Assign(Src);
with Dst do
begin
Width := R.Right - R.Left;
Height := R.Bottom - R.Top;
Canvas.CopyRect(Canvas.ClipRect, Src.Canvas, R);
end;
Dst.SaveToFile(DstFile); // DstFile是目标文件名
Dst.Free;
Src.Free;
end;
这段代码能将SrcFile图象文件中由变量R定义的那部分保存到DstFile中，
如果要分割图象内容的话，只需改变R即可。
