如何从JPG或PNG制作缩略图并将其加载到Timage控件中？

uses
  Vcl.Imaging.jpeg, Vcl.Imaging.pngimage, Vcl.ExtCtrls;

procedure LoadThumbnail(const FileName: string; ImageControl: TImage; Width, Height: Integer);
var
  Image: TJPEGImage;
  Thumbnail: TBitmap;
begin
  Image := TJPEGImage.Create;
  try
    Image.LoadFromFile(FileName);

    Thumbnail := TBitmap.Create;
    try
      Thumbnail.Width := Width;
      Thumbnail.Height := Height;
      Thumbnail.Canvas.StretchDraw(Rect(0, 0, Thumbnail.Width, Thumbnail.Height), Image);

      ImageControl.Picture.Assign(Thumbnail);
    finally
      Thumbnail.Free;
    end;
  finally
    Image.Free;
  end;
end;

// 使用示例
LoadThumbnail('image.jpg', Image1, 100, 100);