아래 함수를 사용하세요.
TrColor에 투명화시킬 색깔을 넣어주면 됩니다.


ex)
   CromaKey(ABitmap, clBlack32);

procedure CromaKey(ABitmap: TBitmap32; TrColor: TColor32);
var
  P: PColor32;
  C: TColor32;
  I: Integer;
begin
  TrColor := TrColor and $00FFFFFF;
  with ABitmap do
  begin
    P := PixelPtr[0, 0];
    for I := 0 to Width * Height - 1 do
    begin
      C := P^ and $00FFFFFF;
      if C = TrColor then P^ := C;
      Inc(P)
    end;
  end;
end;

DoyongID 님이 쓰신 글 :
: 그림을 불러왔는데, 바탕색이 검정색입니다.
:
: 검정색의 알파값을 0으로 해서 출력시에 검정색은 안찍히게 하고 싶은데요..
:
: ScanLine에 접근해서 각 픽셀의 알파값을 일일이 0으로 설정해줘야 하는가요?
:
: 특정 컬러값에 알파값만 대입하는 방식으로 투명도를 조절하는 기능은 없는지 답변부탁드립니다.