Reducir resolucion de imagen

[[duilioisola]]

Código Delphi [-]
   NewBitmap := image4.bitmap;//TBitmap.CreateFromFile('input.bmp');
[...]
   try
   Surf.Assign(NewBitmap);
[...]
   finally
      {
       No debes liberar NewBitmap, porque estarías liberando inage4.Bitmap
       Debes dejar que cuando se cierre el formulario se libere image4 que a su vez liberará Bitmap.
      }
      // NewBitmap.Free;  //Los estoy comentando ya que uno de los dos me esta dando problema cerrandome la aplicacion
   end;