var
bmp,bmp_ci: Graphics.TBitmap;
DC: HDC;
i,j:integer;
begin
try
bmp:=Graphics.TBitmap.Create;
bmp.Height:=15;
bmp.Width:=82;
bmp.PixelFormat := pf32bit;
DC:=GetDC(0);
bitblt(bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, DC, 954, 150, SRCCOPY);
bmp.IgnorePalette:=true;
bmp_ci:=Graphics.TBitmap.Create;
for i:=0 to 9 do
 if FileExists(IntToStr(i)+'.bmp') then
 begin
     bmp_ci.LoadFromFile(IntToStr(i)+'.bmp');
     for j:=0 to bmp.Height-1 do
     begin
       if not CompareMem(bmp.ScanLine[1],bmp_ci.ScanLine[1],bmp.Width*3) then
       здесь уходим вправо на 1 пиксель?
       а если тру?
     end;
 end;
ReleaseDC(0, DC);