[NumLock]

Код:

const
  x1=225;
  y1=543;
  x2=352;
  y2=582;
var
  bmpin: TBitmap;
  bmpout: TBitmap;
begin
  bmpin:=TBitmap.Create;
  bmpout:=TBitmap.Create;
  try
    bmpin.LoadFromFile('g:\__Data\D2007.bmp');
    bmpout.Width:=x2-x1+1;
    bmpout.Height:=y2-y1+1;
    bmpout.Canvas.CopyRect(Rect(0, 0, bmpout.Width, bmpout.Height), bmpin.Canvas, Rect(x1, y1, x2, y2));
    bmpout.SaveToFile('g:\__Data\D2007_.bmp');
  finally
    bmpout.Free;
    bmpin.Free;
  end;
end;