Вопрос возник...Вложенные циклы делают лишнюю работу или ошибка доступа по указателю.

[Иван Ежик]

function CmpBmp(a:TBitmap;var b:tbitmap):Extended;
var
  x,y : Integer;
  Bit1,Bit2 : TBitMap;
  P1,P2 : PIntArray;
  Simil:Integer;
 SBytes1,SBytes2:  INTEGER;
begin
   Simil:=0;
  Bit1 := TBitMap.create;
    Bit1.PixelFormat:=pf32bit;
  Bit1.Height:=32;Bit1.Width:=32;
    b.PixelFormat:=pf32bit;
    a.PixelFormat:=pf32bit;
    SetStretchBltMode(Bit1.Canvas.Handle, STRETCH_DELETESCANS);
  Bit1.Canvas.StretchDraw(Bit1.Canvas.ClipRect,a);

    for y := 0 to 31 do
    begin
      P1 := Bit1.ScanLine[y];
      P2 := b.ScanLine[y];
      for x := 0 to 31  do
       if P1[x]=P2[x] then inc(Simil);
    end;
    result:=(Simil/1024)*100;
   // result:=Simil;
    Bit1.Free;
   // Bit2.Free;
  end;

На одинаковых изображениях 1024 совпадения если раскоментировать // result:=Simil;

 function FastCmpBmp(a:TBitmap;var b:tbitmap):Extended;
var
  x,y : Integer;
  Bit1,Bit2 : TBitMap;
  P1,P2: PIntArray;
  o1,o2,o3 :PInt;
  Simil:Integer;
 SBytes1,SBytes2:  INTEGER;
begin
   Simil:=0;
  Bit1 := TBitMap.create;
    Bit1.PixelFormat:=pf32bit;
  Bit1.Height:=32;Bit1.Width:=32;

    b.PixelFormat:=pf32bit;
    a.PixelFormat:=pf32bit;
  SetStretchBltMode(Bit1.Canvas.Handle, STRETCH_DELETESCANS);
  Bit1.Canvas.StretchDraw(Bit1.Canvas.ClipRect,a);

      o1 := Bit1.ScanLine[0];
      o2 := b.ScanLine[0];

    for x := 992 downto 0 do
    begin
    //  form1.mmo1.Lines.Add('X:'+IntToStr(x));
    //  form1.mmo1.Lines.Add('O1:'+Format('$%x',[ Integer(o1) ]));
       if o1^=o2^ then inc(Simil);// else  o3^:=$00000000;
       dec(o1,1);
       dec(o2,1);
      // inc(o3,1);
    end;
    result:=(Simil/992)*100;
   //   result:=Simil;
    Bit1.Free;
  end;

Но если "смотреть" пиксели через указатели, то не возможно получить доступ к 1024 штукам,только на 32 меньше, иначе вылетает ошибка.

[Pavia]

В памяти картинка хранится в перевёрнутом виде. Верхние строки идут первыми. А 0 последний. У вас банально выход за приделы битовой карты.

[Иван Ежик]

Pavia, Разобрался,Спасибо.теперь ясно представляю КУДА именно указывает Scanline.