Sammenlign 2 billeder i delphi

Hejsa,

Jeg har brug for at sammenligne et billed med 10 andre. hvorså programmet skal fortælle mig hvilket af de 10 der er magen til.
Jeg gør følgende:
  Image1: TImage;
  Images: array[1..10] of TBitmap;

  For I := 1 to 10 do
    if CompareMem(Image1.Picture.Bitmap, Images[I], 100) then Memo1.Lines.Add(IntToStr(I));

Billederne er 10x10, derfor de 100 i længde.
det virker hvis jeg bytter Image1.Pictura.Bitmap ud med Images[3]... så får jeg et 3\'tal i min memo....

Hvem har løsningen ?