image delphi

Ответ от ?[гуру]
uses
 Jpeg;
procedure LoadJpegToImage(const JpegFile: string; var Image: TImage);
var
 JPG: TJpegImage;
begin
 if (LowerCase(ExtractFileExt(JpegFile)) = '.jpg') or
  (LowerCase(ExtractFileExt(JpegFile)) = '.jpeg') then
 try
  JPG := TJpegImage.Create;
  JPG.LoadFromFile(JpegFile);
  Image.Picture.Bitmap.Assign(JPG);
 finally
  JPG.Free;
 end else
 begin
  Image.Canvas.Brush.Color := clWhite;
  Image.Canvas.FillRect(Image.ClientRect);
 end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 LoadJpegToImage(ExtractFilePath(ParamStr(0)) + 'gig.JPEG', Image1);
end;
Источник: ссылка