你贴错版了吧?
FImageHeadLarge.Width := 32;
FImageHeadLarge.Height := 32;
FImageHeadLarge.BkColor := $02FF00FF;
BitMap := TBitmap.Create;
try
BitMap.PixelFormat := pf32bit;
BitMap.LoadFromFile('imgHeadLarge.bmp');
FImageHeadLarge.DrawingStyle := dsTransparent;
FImageHeadLarge.AddMasked(BitMap, $02FF00FF);
finally
BitMap.Free;
end;