Переписать Функцию с VCL под FMX

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;