[xchrom]

Вот примерчик разыскал:
на форму Image кидаешь, в него копируется и сохраняеться кусочек.

Код:

    
procedure TForm1.Button1Click(Sender: TObject);
var
  i: TJPEGImage;
begin
  try
    i := TJPEGImage.create;
    try
      i.CompressionQuality := 100;
      Canv := TCanvas.Create;
      Canv.Handle := GetDC(0);
      DRect.Left   := 0;
      DRect.Top    := 0;
      DRect.Right  := 200;
      DRect.Bottom := 200;
      image.Width  := DRect.Right - DRect.Left;
      image.height := Drect.Bottom - DRect.Top;
      Image.Canvas.CopyRect(DRect, Canv, DRect);
      i.assign(Image.Picture.Bitmap);
      I.SaveToFile('c:\MyFile.jpg');
    finally
      i.free;
    end;
  except
  end;
end;