{TJpegImageをLoadして表示する方法をいくつか並べてみました。
Form上にTImage 1つとボタンを4つ配置して各ボタンClickのイベントハンドラを
イカのようにします。}

procedure TForm1.Button1Click(Sender: TObject);
begin
   image1.Picture.loadFromFile('c:\tmp\a.jpg');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
   jpg:TJpegImage;
begin
   jpg:=TJpegImage.create;
   jpg.LoadFromFile('c:\tmp\a.jpg');
   Image1.Picture.assign(jpg);
   jpg.free;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
   jpg:TJpegImage;
   bmp:TBitmap;
begin
   jpg:=TJpegImage.create;
   bmp:=TBitmap.create;
   jpg.LoadFromFile('c:\tmp\a.jpg');
   bmp.assign(jpg);
   Image1.Picture.bitmap.assign(bmp);
   jpg.free;
   bmp.free;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
   jpg:TJpegImage;
begin
   jpg:=TJpegImage.create;
   jpg.LoadFromFile('c:\tmp\a.jpg');
   image1.canvas.Draw(0,0,jpg);
   jpg.free;
end;
☆☆☆　わからないときサンプル蔵　わかったときサンプル蔵　☆☆☆
                                 98/01/11(日) 20:35 凛(MXB01744)

Original document by 凛              氏 ID:(MXB01744)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。