Поиск картинки в картинке

[Alexandr555]

Накидал код для поиска картинки в картинке, формат изображения jpg
но вырезал из изображения кусок, но он его почему то не находит хотя в одном и том же изображении находит совпадение, в чем проблема?

procedure TForm1.Timer2Timer(Sender: TObject);
var
fl: TStringList;
i,j: integer;
begin
Timer2.Enabled:=false;
Fl:=TStringList.Create;
Search('C:\**',fl);
jpg1.LoadFromFile('C:\***\test1.jpg');
BT1.Assign(JPG1);
jpg2.LoadFromFile('C:\***\test2.jpg');
BT2.Assign(JPG2);
for i:=0 to BT1.Height - BT2.Height do
 for j:=0 to BT1.Width - BT2.Width do
  begin
   if BT1.Canvas.Pixels[j,i]=BT2.Canvas.Pixels[0,0] then
   if CheckImage(i,j) then ShowMessage('Успех!');
  end;
fl.Free;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
jpg1 := TJPEGImage.Create;
jpg2 := TJPEGImage.Create;
BT1:=TBitMap.Create;
BT2:=TBitMap.Create;
end;
 
function TForm1.CheckImage(h, w: integer): boolean;
var
i,j,mh,mw: integer;
begin
result:=false;
mh:=h+BT2.Height-1;
mw:=w+BT2.Width-1;
result:=true;
for i:=h to mh do
 for j:=w to mw do
  begin
   if (BT1.Canvas.Pixels[j,i]<>BT2.Canvas.Pixels[j-w,i-h]) then
    begin
     result:=false;
     exit;
    end;
  end;
end;

[x128]

http://programmersforum.ru/showpost....65&postcount=2

[Alexandr555]

проблему я уже нашел, jpg со своим сжатием не одинаковые цвета делает