Получить цвет пикселя с альфаканалом

procedure Tcc_main.btn1Click(Sender: TObject);
begin
 png := TPNGObject.create;
 if od.Execute then png.LoadFromFile(od.FileName);
end;
 
 
 
procedure Tcc_main.btn3Click(Sender: TObject);
var
Pix:TColor;
begin
  Pix:= png.Canvas.Pixels[i,j];
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
 if od.Execute then png.LoadFromFile(od.FileName);
 Image1.Picture.Assign(png);
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
var Color: TColor;
    r, g, b, a: Byte;
    ByteAr: pByteArray;
    x, y: Integer;
begin
 
  x := 151;
  y := 42;
 
  Color := PNG.Pixels[x, y];
  ByteAr := PNG.AlphaScanline[y];
 
  r := Color shr 0;
  g := Color shr 8;
  b := Color shr 16;
 
  a := ByteAr[x];
 
  Caption := 'Пиксель [' + IntToStr(x) + ' : ' + IntToStr(y) + '] -> r = ' + IntToStr(r) +
                     ', g = ' + IntToStr(g) + ', b = ' + IntToStr(b) + ', a = ' + IntToStr(a);
 
end;

      Private { Private declarations }
            PNG: TPNGObject;
            pX: Integer;
            pY: Integer;
 
...
 
Procedure TForm1.FormCreate(Sender: TObject);
Var FileName: String;
Begin
FileName:='C:\Users\BOGGART\Downloads\step1.png';
If FileExists(FileName) Then
      Begin
      PNG:=TPNGObject.Create();
      PNG.LoadFromFile(FileName);
      pX:=40;
      pY:=30;
      End;
End;
 
Procedure TForm1.FormDestroy(Sender: TObject);
Begin
PNG.Free();
End;
 
Procedure TForm1.Button1Click(Sender: TObject);
Var Col: TColor;
Begin
Col:=PNG.Canvas.Pixels[pX, pY];
ShowMessage('#'+IntToHex(Col, 8));
End;
 
Procedure TForm1.Button2Click(Sender: TObject);
Var Col: TColor;
Begin
Col:=PNG.Pixels[pX, pY];
ShowMessage('#'+IntToHex(Col, 8));
End;
 
procedure TForm1.Button3Click(Sender: TObject);
Var Col: TColor;
Begin
Col:=PNG.Pixels[pX, pY];
If PNG.AlphaScanline[pY]<>Nil Then
      Col:=Col Or (PNG.AlphaScanline[pY][pX] Shl 24);
ShowMessage('#'+IntToHex(Col, 8));
End;

procedure TForm1.Button4Click(Sender: TObject);
begin
pX:=153;
pY:=37;
Mouse.CursorPos:=ClientToScreen(Point(Image1.Left+pX, Image1.Top+pY));
Button3.Click();
end;

PNG.AlphaScanline[pY][pX]

If PNG.AlphaScanline[pY]<>Nil Then
      a:=PNG.AlphaScanline[pY][pX]
Else
      a:=255;

Procedure TForm1.Button1Click(Sender: TObject);
Var FileName: String; PNG: TPNGObject; BMP: TBitmap;
Begin
FileName:='C:\Users\BOGGART\Downloads\step1.png';
If FileExists(FileName) Then
      Begin
      PNG:=TPNGObject.Create();
      BMP:=TBitmap.Create();
      Try
            PNG.LoadFromFile(FileName);
            BMP.Assign(PNG);
            BMP.PixelFormat:=pf24bit;
            PNG.Assign(BMP);
            PNG.SaveToFile(FileName+'.24bit.png');
      Finally
            PNG.Free();
            BMP.Free();
            End;
      End;
End;