вопрoс по XOR

[whystr]

Всем доброго времени суток.
Нужно найти различия между 2 изображениями, делаю так

var
  b1,b2,b3: TBitmap;
  x,y:word;

       ....
for x:=1 to b3.Width do
    for y:=1 to b3.Height do
      b3.Canvas.Pixels[x,y]:=b1.Canvas.Pixels[x,y] xor b2.Canvas.Pixels[x,y];

....

Собственно, все "правильно", НО очень большое время выполнения кода.
Можно ли как либо XORить "по быстрее", чем быстрее - тем лучше

[veniside]

CreateDIBSection(Canvas.Handle, ....)