帮我看下这个function 是干什么的

Question

返回的字符串 是什么？
function hi(imgOrig1,imgTarget1:TImage):string;     
var
  x, y              : integer;
  mask, ch          : byte;
begin
  Result:='';
  mask := $80;
  ch := 0;
  for y := 0 to imgOrig1.Picture.Bitmap.Height - 1 do
  begin
    for x := 0 to imgOrig1.Picture.Bitmap.Width - 1 do
    begin
       if (imgOrig1.Picture.Bitmap.Canvas.Pixels[x, y] <>
        imgTarget1.Picture.Bitmap.Canvas.Pixels[x, y]) then
        ch := ch or mask;
      mask := mask shr 1;
      if mask = 0 then
      begin
        Result := Result + char(ch);
        mask := $80;
        ch := 0;
      end;
    end;
  end;
end;

Answer 1

1个bit表示1个不同点，不过不明白为什么要这么做