Firemonkey Bitmap 设定像素颜色 Pixel

VCL 和 Firemonkey 的 Bitmap 处理像素的方式不相同，下例为将图片内不是「白色」的像素全部改成「黑色」：

procedure TForm1.Button1Click(Sender: TObject);
var x, y: Integer;
    vBitMapData: TBitmapData;
begin
     if Image1.Bitmap.Map(TMapAccess.maWrite, vBitMapData) then
     begin
          for x:= to Image1.Bitmap.Width -  do
              for y:= to Image1.Bitmap.Height -  do
                  if vBitMapData.GetPixel(x, y) <> TAlphaColors.White then
                     vBitMapData.SetPixel(x, y, TAlphaColors.Black);
          Image1.Bitmap.Unmap(vBitMapData);
     end;
end;