That's interesting.
What about adding image comparison using BlendImage or BlendImageOver (in case you use an alpha channel) ?
var
img1,img2,comp: TBGRABitmap;
begin
...
comp := TBGRABitmap.Create(img1.Width, img1.Height);
comp.PutImage(0,0, img1,dmSet);
comp.BlendImage(0,0,img2,boDifference);