function CompareImage(TrueImg, ComprblImg:TImage;//TrueImg-это картинка-шаблон,ComprblImg-сравниваемая        

 

Width,Height,x1,y1:integer):extended;

 //x1,y1 - координаты начала ComprblImg. результат в "%"

var   x,y,k,n:integer;   one,two:extended;  //числитель и знаменатель.

begin  

Result:=0;                                                                              {} {}  n:=0;                                                                                   {} {}  k:=0;                                                                                   {} {}  for x := 0 to Width do                                                                  {} {}  for y := 0 to Height do                                                                 {} {}    if TrueImg.Canvas.Pixels[x,y]=clBlack then                                            {} {}      begin                                                                               {} {}        inc(n);  //это наш знаменатель - сколько всего черных пикселей                    {} {}    

  if ComprblImg.Canvas.Pixels[x+x1,y+y1]=clBlack then                               {} {}          

inc(k);//это числитель - кол-во совпадений                                      {} {}      end;                                                                                {} {}  one:=k; two:=n;  //присваиваем числитель и знаменатель                                  {} {}  Result:=one/two*100;  //и результат умножаем на 100%.                                 {} {}  //form.Memo1.Lines.Add(FloatToStr(result)); end;