Como carregar uma imagem JPEG no TBitmap do Delphi e em seguida desenhá-lo no formulário

// não se esqueça de adicionar 'JPEG' no uses
procedure TForm1.Button1Click(Sender: TObject);
var
  jpg: TJpegImage;
  bmp: TBitmap;
begin
  // vamos criar um novo objeto TJpegImage
  jpg := TJpegImage.Create;

  // agora vamos carregar a imagem JPG desejada
  jpg.LoadFromFile('C:\estudos_java\lago.jpg');

  // agora criamos o bitmap
  bmp := TBitmap.Create;
  // e atribuimos o JPG ao Bitmap
  bmp.Assign(jpg);

  // finalmente desenhamos o bitmap no form
  Form1.Canvas.Draw(0, 0, bmp);

  // e limpamos o JPG e o Bitmap
  bmp.free;
  jpg.free;
end;