procedure TForm1.SaveBmpToFile(ASourceBmp: TBitmap; SrcRect: TRect; AFileName: string);var ADestBmp: TBitmap;begin ADestBmp := TBitmap.Create; try ADestBmp.Width := SrcRect.Right - SrcRect.Left; ADestBmp.Height := SrcRect.Bottom - SrcRect.Top; ADestBmp.Canvas.CopyRect(ADestBmp.Canvas.ClipRect, ASourceBmp.Canvas.Create, SrcRect); ADestBmp.SaveToFile(AFileName); finally ADestBmp.Free; end;end;
