如何在Delphi Linq上显示透明的PNG？

var
  PngImage: TPngImage;
begin
  PngImage := TPngImage.Create;
  PngImage.LoadFromFile('path/to/your/transparent.png');
  PngImage.Transparent := True;
end;

var
  PngImage: TPngImage;
  Pixel: TPixelRec;
begin
  PngImage := TPngImage.Create;
  PngImage.LoadFromFile('path/to/your/transparent.png');
  PngImage.Transparent := True;

  for Pixel in PngImage.Pixels.Where(function(P: TPixelRec): Boolean
    begin
      Result := (P.R = 255) and (P.G = 255) and (P.B = 255);
    end) do
  begin
    Pixel.A := 0;
  end;
end;

var
  PngImage: TPngImage;
  Pixel: TPixelRec;
  Image: TImage;
begin
  PngImage := TPngImage.Create;
  PngImage.LoadFromFile('path/to/your/transparent.png');
  PngImage.Transparent := True;

  for Pixel in PngImage.Pixels.Where(function(P: TPixelRec): Boolean
    begin
      Result := (P.R = 255) and (P.G = 255) and (P.B = 255);
    end) do
  begin
    Pixel.A := 0;
  end;

  Image := TImage.Create(Self);
  Image.Parent := Self;
  Image.Picture.Assign(PngImage);
end;