1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

uses ..., Jpeg;

procedure Jpg2Bmp(FileName: String; Bmp: TBitmap);
var
  Jpg : TJpegImage;
begin
  Jpg := TJpegImage.Create;
  try
    Jpg.LoadFromFile(FileName);
    Bmp.Assign(Jpg);
  finally Jpg.Free end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Button1Click(Sender: TObject);
var
  Bmp: TBitmap;
begin
  ...
  Jpg2Bmp('C:\_Bitmaps\wood1.jpg', Bmp);
  ...
end;					

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('C:\_Bitmaps\wood1.jpg');
end;					

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Picture.Bitmap.LoadFromFile('C:\_Bitmaps\wood1.jpg');
end;