Настройка прозрачности изображения

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Image1: TImage; 
    procedure FormCreate(Sender: TObject);
  private
    procedure ApplyTransparency(var Bitmap: TBitmap; AlphaValue: Byte);
  public
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var
  Bitmap: TBitmap;
begin
  Bitmap := TBitmap.Create;
  try
    Bitmap.LoadFromFile('your_image.png'); 
 
    ApplyTransparency(Bitmap, 128);
 
    Image1.Picture.Bitmap := Bitmap;
  finally
    Bitmap.Free;
  end;
end;
 
 
procedure TForm1.ApplyTransparency(var Bitmap: TBitmap; AlphaValue: Byte);
var
  x, y: Integer;
  Color: TColor;
  R, G, B: Byte;
  RawImage: TRawImage;
  DataPointer: PByte;
begin
  // Преобразуем Bitmap в формат, поддерживающий альфа-канал
  Bitmap.PixelFormat := pf32bit;
  RawImage := Bitmap.RawImage;
  DataPointer := PByte(RawImage.Data);
  for y := 0 to Bitmap.Height - 1 do
  begin
    for x := 0 to Bitmap.Width - 1 do
    begin
      // Извлекаем цвет пикселя (в формате BGRA)
      B := DataPointer^;
      Inc(DataPointer);
      G := DataPointer^;
      Inc(DataPointer);
      R := DataPointer^;
      Inc(DataPointer);
      DataPointer^ := AlphaValue;
      Inc(DataPointer);
    end;
  end;
end;
 
end.

//-----------Добавить альфа-канал
procedure TRepForm.AddAlpha;
var i,j:integer;
p:PBGRAPixel;
begin
for i:=0 to bmp.Height-1 do
    begin
    p:=bmp.ScanLine[i];
    for j:=0 to bmp.Width-1 do
       begin
       p^.red:=p^.red+Round((255-p^.red)*alpha);
       p^.green:=p^.green+Round((255-p^.green)*alpha);
       p^.blue:=p^.blue+Round((255-p^.blue)*alpha);
       inc(p);
       end;
    end;
bmp.InvalidateBitmap;
end;