Ускорить сравнение TBitmap

function CmpBmp(a,b:TBitmap):Extended;
var
  x,y : Integer;
  Bit1,Bit2 : TBitMap;
  P1,P2,o1,o2 : PIntArray;
  Simil:Integer;
 
 SBytes1,SBytes2:  INTEGER;
 
begin
   Simil:=0;
  Bit1 := TBitMap.create;
    Bit1.PixelFormat:=pf32bit;
  Bit1.Height:=32;Bit1.Width:=32;
 
  Bit2 := TBitMap.create;
  Bit2.PixelFormat:=pf32bit;
  Bit2.Height:=32;Bit2.Width:=32;
 
  Bit1.Canvas.StretchDraw(Bit1.Canvas.ClipRect,a);
  Bit2.Canvas.StretchDraw(Bit2.Canvas.ClipRect,b);
 
    //  P1 := Bit1.ScanLine[0];
    //  P2 := Bit2.ScanLine[0];
 // SBytes1 := integer(a.Scanline[1]) - integer(P1);
 // SBytes2 := integer(b.Scanline[1]) - integer(P2);
 
  //  o1:=P1;
 //   o2:=P2;
    for y := 0 to 31 do
    begin
      P1 := Bit1.ScanLine[y];
      P2 := Bit2.ScanLine[y];
      for x := 0 to 31  do
       if P1[x]=P2[x] then inc(Simil);
    end;
    result:=(Simil/1024)*100;
 
    Bit1.Free;
    Bit2.Free;
  end;

procedure TForm1.btn3Click(Sender: TObject);
var t1,t2,freq:Int64;   I:Integer; Rezz:Extended;
tmpBit:TBitmap;
begin
QueryPerformanceFrequency(freq);
 
tmpBit:=TBitmap.Create;
 
for i:=0 to 5 do begin
QueryPerformanceCounter(t1) ;
il1.GetBitmap(i,tmpBit);
rezz:=CmpBmp(imgTwo.Picture.Bitmap,tmpBit);
QueryPerformanceCounter(t2) ;
mmo2.Lines.Add(FormatFloat('0.000000',((T2 - T1)/freq))+' S.'+inttostr(i)+' '+FormatFloat('0.0',rezz));
end;
tmpBit.Free;
end;

function ScaleBitmap(var Source, Dest: TBitmap; OutWidth, OutHeight: integer):Extended;
var
  src, dst: TGPBitmap;
  g: TGPGraphics;
  h: HBITMAP;
 iCounterPerSec: int64;
 T1, T2: int64; //значение счётчика ДО и ПОСЛЕ операции
 Quality:Integer;
begin
 
    QueryPerformanceFrequency(iCounterPerSec);//определили частоту счётчика
  QueryPerformanceCounter(T1); //засекли время начала операции
  src := TGPBitmap.Create(Source.Handle, 0);
  try
    dst := TGPBitmap.Create(OutWidth, OutHeight);
    // dst.LockBits()
    try
      g := TGPGraphics.Create(dst);
      try
        g.SetInterpolationMode(1); //-1..7
        g.SetPixelOffsetMode(3);   //-1..4
        g.SetSmoothingMode(3);     //-1..4
        
        g.DrawImage(src, 0, 0, dst.GetWidth, dst.GetHeight);
 
{    InterpolationModeInvalid             = QualityModeInvalid;
    InterpolationModeDefault             = QualityModeDefault;
    InterpolationModeLowQuality          = QualityModeLow;
    InterpolationModeHighQuality         = QualityModeHigh;
    InterpolationModeBilinear            = 3;
    InterpolationModeBicubic             = 4;
    InterpolationModeNearestNeighbor     = 5;
    InterpolationModeHighQualityBilinear = 6;
    InterpolationModeHighQualityBicubic  = 7;
    //////////////////////////////////////////////////////
        PixelOffsetModeInvalid     = QualityModeInvalid;
    PixelOffsetModeDefault     = QualityModeDefault;
    PixelOffsetModeHighSpeed   = QualityModeLow;
    PixelOffsetModeHighQuality = QualityModeHigh;
    PixelOffsetModeNone        = 3;    // No pixel offset
    PixelOffsetModeHalf        = 4;    // Offset by -0.5, -0.5 for fast anti-alias perf
    ////////////////////////////////////////////////////////
        SmoothingModeInvalid     = QualityModeInvalid;
    SmoothingModeDefault     = QualityModeDefault;
    SmoothingModeHighSpeed   = QualityModeLow;
    SmoothingModeHighQuality = QualityModeHigh;
    SmoothingModeNone        = 3;
    SmoothingModeAntiAlias   = 4;}
      finally
        g.Free;
      end;
      dst.GetHBITMAP(0, h);
      Dest.Handle := h;
    finally
      dst.Free;
    end;
  finally
    src.Free;
  end;
    QueryPerformanceCounter(T2);
    result:= (T2 - T1) / iCounterPerSec;
end;

/////////////////
begin
       Bitmap := TBitmap.Create;
 
      Bitmap.PixelFormat := pf32bit;
      Bitmap.Width  := WH.Width;
      Bitmap.Height := WH.Height;
      row := Bitmap.Scanline[0];
 
      ScanlineBytes := integer(Bitmap.Scanline[1]) - integer(row);
 
  LoopCount := Form1.SpinEditTimes.Value;
  StartTime := GetTickCount;
  FOR k := 1 TO LoopCount DO
  BEGIN
    row2:=row;
    FOR j := 0 TO Bitmap.Height-1 DO
    BEGIN
      FOR i := 0 TO Bitmap.Width-1 DO
      BEGIN
 
        row2[i]:=((j mod 256) + ((i mod 256) shl 8)+ (k shl 16){ or (k shl 24)});
 
      END;
     INC(Integer(Row2), ScanlineBytes);
    END;
    form1.  img3.Picture.Graphic := Bitmap;
 
   END;
//////////////////////

 function MasCmpBmp(a:TBitmap;var mas:TArOB):TRres;
var
  x,WH,i : Integer;
  Bit1,Bit2 : TBitMap;
  P1,P2,Pin: PInt;
  o1,o2 :PInt;
  Simil:Integer;
  PreRes:Double;
begin
Result.Val:=0.0;
Result.Num:=-1;
  Bit1 := TBitMap.create;
  Bit1.PixelFormat:=pf32bit;
  Bit1.Height:=Mas[0].Height;Bit1.Width:=Mas[0].Width;
  Bit1.Canvas.StretchDraw(Bit1.Canvas.ClipRect,a);
  WH:=Mas[0].Height*Mas[0].Width-1;
      o1 := Bit1.ScanLine[Bit1.height-1];
      P1:= Bit1.ScanLine[0];
      if cardinal(o1)>cardinal(P1) then o1:=P1;
    //  form1.mmo1.Lines.Add('Mas:'+IntToStr(Length(mas)));
   for i:=Low(MAs) to High(mas) do
   begin
      Pin:=o1;
      mas[i].PixelFormat:=pf32bit;
      Simil:=0;
      PreRes:=0.0;
      o2 := Mas[i].ScanLine[Mas[i].height-1];
      P2:= Mas[i].ScanLine[i];
      if cardinal(o2)>cardinal(P2) then o2:=P2;
 
     for x := WH downto 0 do
     begin
     // form1.mmo1.Lines.Add('X:'+IntToStr(x));
     //  form1.mmo1.Lines.Add('O1:'+Format('$%x',[ Integer(o1) ]));
        if Pin^=o2^ then inc(Simil) ;
        inc(Pin,1);
        inc(o2,1);
     end;
     PreRes:=(Simil/(WH+1))*100;
     if PreRes>Result.Val then
     begin
       Result.Val:=PreRes;
       Result.Num:=i;
     end;  
    end;
    //  form1.Img6.Canvas.StretchDraw(form1.Img6.Canvas.ClipRect,Bit2);
    Bit1.Free;
  end;