--- ---

    unit Unit1;

    interface

    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls,
      Forms, Dialogs, StdCtrls, ExtCtrls;

    type
      TForm1 = class(TForm)
        Button1: TButton;
        Image1: TImage;
        procedure Button1Click(Sender: TObject);
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.DFM}

    uses JPEG;

    procedure TForm1.Button1Click(Sender: TObject);
    var
      JPEG: TJPEGImage;
      Bitmap: TBitmap;
    begin
      JPEG := TJPEGImage.Create;
      Bitmap := TBitmap.Create;
      try
        // change this to load a suitable bitmap file
        Bitmap.LoadFromFile('C:\MyDir\MyFile.bmp');
        JPEG.Assign(Bitmap);
        Image1.Picture.Assign(JPEG);
      finally
        JPEG.Free;
        Bitmap.Free;
      end;
    end;

    end.