Delphi: Cargar Imagen JPEG en TBitmap

Hoy quiero mostrar cómo cargar una imagen JPG desde un archivo en un TBitmap en Delphi, por ejemplo, para editar esta imagen de forma arbitraria.

En la parte superior de nuestra unit, tenemos que agregar la unit "JPEG" a nuestra cláusula de usos:

uses Windows, ... ,JPEG;

Y aquí está nuestro código que carga el JPG y lo guarda en el bitmap:

procedure TForm1.Button1Click(Sender: TObject);
var
   jpg: TJpegImage;
   bmp: TBitmap;
begin
   jpg := TJpegImage.Create;
   jpg.LoadFromFile('C:\imagen.jpg');
 
   bmp := TBitmap.Create;
   bmp.Assign(jpg);
 
   // edición de imagen
 
   bmp.free;
   jpg.free;
end;

Primero, creamos una nueva imagen jpg vacía y usamos LoadFromFile para cargarle una imagen arbitraria.

Después de eso, creamos un bitmap vacío y con "Assign", podemos cargar nuestro "jpg" al bitmap.

Luego podemos realizar las ediciones que deseemos y posteriormente, no debemos olvidarnos de liberar tanto "bmp" como "jpg".