[deliriun]

También estoy usando un Timer

procedure TForm5.Button1Click(Sender: TObject);
begin
if Image1.Picture.Bitmap.Canvas.Pixels[0,0] = Image2.Picture.Bitmap.Canvas.Pixels[0,0] then
       begin
       showMessage('Iguales');


 End;
end;

procedure TForm5.Timer1Timer(Sender: TObject);
begin
Image1.Picture.LoadFromFile('E:\Test.bmp');
end;

Y estoy editando Test.bmp constantemente pero siempre me sale el mensaje