int fn=0;
//STROKA
for (int ii=0;ii<Image1->Picture->Height;ii++)
{
//STOLB
for(int i=0;i<Image1->Picture->Width-1;i++)
{
if (IntToStr(Image1->Canvas->Pixels[i][ii])==IntToStr(Image2->Canvas->Pixels[i][ii]))fn++;

}

}
Form1->Caption=IntToStr(fn);
//SKOLKO SOVPALO PIKSELEY

}