Сравнение двух Bitmap

[Nikk[UA]]

Нужно сравнить 2 битмапа ширеной 192 и высотой 1 пиксель.

function scannovote() :integer;
var
bm: TBitmap;
bmc: TBitmap;
x,y,hamma : integer;

begin
bm := TBitmap.Create;
bm.Width := 192;
bm.Height := 1;
BitBlt(bm.Canvas.Handle,0,0,192,1,G etWindowDC(form1.Handle),32,284,SRC COPY);

bmc := TBitmap.Create;
bmc.Width := 192;
bmc.Height := 1;
bmc.LoadFromFile('novote.bmp');

hamma:=0;
x:=0;
y:=0;

For x:=0 to Bm.Width-1 do
if bm.Canvas.Pixels[x,1] = bmc.Canvas.Pixels[x,1] then hamma := hamma + 1;

if hamma = bm.Width then
begin
cpl := 2;
cplnovote := 1;
end;

hamma := 0;
bm.Free;
bmc.Free;
end;

Один битмап берется как скриншот определенной области экрана, а второй из файла как образец.

Если битмапы одинаковы, то переменным cpl := 2; cplnovote := 1; присваиваются опеделенные значения.

Но у меня переменным всегда задаются значения если даже битмапы не одинаковы!

[BDA]

var
  Form1: TForm1;
  cpl, cplnovote: integer;

procedure TForm1.Button1Click(Sender: TObject);
var
  bm: TBitmap;
  bmc: TBitmap;
  x: integer;

begin
  bm := TBitmap.Create;
  bm.Width := 192;
  bm.Height := 1;
  BitBlt(bm.Canvas.Handle, 0, 0, 192, 1, GetWindowDC(form1.Handle), 32, 284, SRCCOPY);

  bmc := TBitmap.Create;
  bmc.Width := 192;
  bmc.Height := 1;
  bmc.LoadFromFile('novote.bmp');

  cpl := 2;
  cplnovote := 1;

  for x := 0 to Bm.Width - 1 do
    if bm.Canvas.Pixels[x, 0] <> bmc.Canvas.Pixels[x, 0] then
    begin
      cpl := 0;
      cplnovote := 0;
      break;
    end;

  bm.Free;
  bmc.Free;
end;

[Nikk[UA]]

Огромное спасибо! Помогло!