Gut, das ist etwas komplizierter... Hier mal ein bisschen Code, hoffe das reicht.
Delphi-Quellcode:
type
TRGBQuad = packed record
b,g,r,a: Byte;
end;
PRGBQuad = ^TRGBQuad;
T32bit = array[0..16383] of TRGBQuad;
P32bit = ^T32bit;
...
var i, n: Integer;
P: P32bit;
begin
for i := 0 to bmp.Height-1 do
begin
P := bmp.ScanLine[i]; // hier lädst du die Farbwerte des Pixels
for n := 0 to bmp.Width-1 do
{P[n].a; // ist dann der Alpha-Wert}
end;
end;