function CortarImagem(Imagem: TGraphic; Valores: TRect): TBitmap;
var
  bmp, tbmp: TBitmap;
  drect: TRect;
begin
  bmp := TBitmap.Create;
  bmp.Height := Valores.Bottom - Valores.Top;
  bmp.Width := Valores.Right - Valores.Left;
  drect := Bounds(0, 0, bmp.Width, bmp.Height);
 
  tbmp := TBitmap.Create;
  try
    tbmp.Height := Imagem.Height;
    tbmp.Width := Imagem.Width;
    tbmp.Canvas.Draw(0, 0, Imagem);
    bmp.Canvas.CopyRect(drect, tbmp.Canvas, Valores);
    Result := bmp;
  finally
    tbmp.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Picture.bitmap := CortarImagem(Image1.Picture.Graphic,
    Bounds(62, 0, Image1.Picture.Width - 70, Image1.Picture.Height - 46));
end;