Сравнивание двух файлов (bmp)

[Rin]

function my_cmp(var s1,s2:string):boolean;
var
 i,end1,different,n:integer;
 c1,c2:char;
 ms1, ms2 : Tmemorystream;
  begin
  MS1:=TMemoryStream.Create;
  MS2:=TMemoryStream.Create;
  ms1.LoadFromFile(s1);
  ms2.LoadFromFile(s2);
  ms1.Position:=0;
  ms2.Position:=0;
  end1:=ms1.Size;
  different:=0;
  n:=1;
  for i:= 1 to end1-1 do
  begin
    ms1.Read(c1,1);
    ms2.Read(c2,1);
    if c1<>c2 then different:=different+1;
  end;
    if different>N then result:=false// N рассчитайте экспериментально
    else
    result:=true;
end;
............
var  my_value:array[1..26] of string;
my_value[1]:='c:\2krasnoe.bmp';
.....
my_value[13]:='c:\Tkrasniy.bmp';
my_value[14]:='c:\2chernoe.bmp';
............
my_value[26]:='c:\Tcherniy.bmp';
if my_cmp('c:\bubi.bmp','c:\1.bmp') then
begin
  for i:=1 to 13 do
  begin
    if my_cmp(my_value[i],'c:\2.bmp') then
    begin
      showmessage('bubi '+my_value[i]);
      break;
    end;
  end;
  exit;
end;
if my_cmp('c:\piki.bmp','c:\1.bmp') then
begin
  for i:=14 to 26 do
  begin
    if my_cmp(my_value[i],'c:\2.bmp') then
    begin
      showmessage('piki '+my_value[i]);
      break;
    end;
  end;
  exit;
end;

Ну и так же для червей и крест.