图象比较(50分)

我现在正在做2张图片比较，当图片出现不一样时，我想在2张不一样的地方（指像素上）
出现出现黑白交错的闪烁（即一会儿该像素变黑，即一会儿该像素变白），
请问该如何实现呢？谢谢呢？

以下代码可实现你的要求：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;

type
TForm1 = class(TForm)
Image1: TImage;
Image2: TImage;
BitBtn1: TBitBtn;
Timer1: TTimer;
Image3: TImage;
procedure BitBtn1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
cl:boolean;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Timer1.Enabled:=not Timer1.Enabled;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
i : INTEGER;
j : INTEGER;
bw: Tcolor;
begin
cl:=not cl;
if cl then bw:= clblack else bw:=clwhite;
for i:=0 to Image1.Width-1 do
for j:=0 to Image1.Height-1 do
begin
if Image1.Canvas.Pixels[i,j]<>Image2.Canvas.Pixels[i,j] then
Image3.Canvas.Pixels[i,j]:=bw else
Image3.Canvas.Pixels[i,j]:=Image1.Canvas.Pixels[i,j];
end;
end;

end.

UP

多人接受答案了。