[RidDozZ]

Пробовал, не получилось. Знаний маловато.
Да и мне уже подсказали верный вариант на другом форуме:

Код:

...
for y:=0 to png.Height-1 do begin
    DstAlpha:=png.AlphaScanline[y];
    for x:=0 to png.Width-1 do
      DstAlpha[x]:=DstAlpha[x]*alpha div 256;
  end;
...