delphi11 bpg显示到Timage

要将 BPG 格式的图片显示在 Delphi 的 TImage 控件中，你需要使用 BPG 库来加载 BPG 图片，并将其绘制到 TImage 控件中。BPG 库可以在官网上进行下载，下载地址为：https://bellard.org/bpg/

以下是具体步骤：

1. 将 BPG 库的 DLL 文件添加到 Delphi 项目中，方式如下：

在 Delphi 项目中，选择 "Project" 菜单 -> "Options" -> "Linking" 选项卡，在 "Additional Libraries" 输入框中添加 BPG 库的 DLL 文件路径，例如：C:\bpg\libbpg.dll

2. 在 Delphi 项目中添加 BPG 库的头文件，方式如下：

在 Delphi 项目中，选择 "Project" 菜单 -> "Options" -> "Directories and Conditionals" 选项卡，在 "Conditional Defines" 输入框中添加 "USE_BPG"，这将启用 BPG 库的头文件。

3. 在 Delphi 代码中加载并显示 BPG 图片，方式如下：

var
  bpgImage: TBpgImage;
begin
  // 加载 BPG 图片
  bpgImage := TBpgImage.Create;
  bpgImage.LoadFromFile('path/to/bpg/image.bpg');

  // 绘制 BPG 图片到 TImage 控件中
  Image1.Picture.Assign(bpgImage);

  // 释放 BPG 图片资源
  bpgImage.Free;
end;

需要注意的是，如果你的 Delphi 版本不支持直接使用 TBpgImage 类型，你可以通过调用 BPG 库提供的函数来手动加载 BPG 图片，并将其绘制到 TImage 控件中。