delphi bmp scanline

procedure TForm1.SpeedButton3Click(Sender: TObject);
var
  x,y : Integer;
  p1,p2: PByteArray;
begin
  for y := 0 to Image1.Picture.Bitmap.Height -1 do
  begin
    p1 := Image1.Picture.Bitmap.ScanLine[y];
    p2 := Image2.Picture.Bitmap.ScanLine[y];
    for x:= 0 to Image1.Width -1 do
    begin
      if p1[x] <> p2[x] then
      begin
        //这里把不同的地方设置成红色，但是显示出来的却不是
      end;
    end;
  end;
  Image2.Refresh;
end;