Guardar porción de un TBitmap
 

Hola amigos, estoy trabado con esto a ver si me pueden ayudar.

Tengo una imagen de 1024 x 768 en un TBitmap y quiero guardar como archivo una porción de ella (un réctangulo de unos 100 x 80 pixeles) dandole las coordenadas que quiero copiar y guardar como archivo.

Así es como capturo el bitmap y lo guardo al rígido entero, pero solo quiero guardar un rectángulo del mismo.

Código Delphi [-]
  BMP := TBitmap.Create;
  //con esto hago un screenshot del escritorio usando el componente ASG
  BMP.Assign(ASGScreenCapture1.CaptureDesktop); 
  BMP.SaveToFile('c:\bmp.bmp');
  BMP.Free;

Saludos

SrcRect := Rect(...);

BMP := TBitmap.Create;
Bmp.Width := SrcRect.Right - SrcRect.Left;
Bmp.Height := SrcRect.Bottom - SrcRect.Top;

BMP.Canvas.CopyRect(
Rect(0, 0, BMP.Width, BMP.Height),
ASGScreenCapture1.CaptureDesktop.Canvas,
SrcRect
);

BMP.SaveToFile('c:\bmp.bmp');
BMP.Free;