[Bargest]

Могу, только уверен, что ты не поймешь, если не понял описание.
Делать нечего, поэтому напишу. Вот тебе вариант "в лоб":

Код:

found := false;
for j := 0 to height - tmHeight - 1 do
begin
   for i := 0 to witdh - tmWidth - 1 do
   begin
       if screenshot[i,j] = template[0,0] then
       begin
           found := true;
           for k := 0 to tmHeight - 1 do
           begin
               for l := 0 to tmWidth - 1 do
                  if screenshot[i + l, j + k] <> template[l,k] then
                  begin
                     found := false;
                     break;
                  end;
              if not found then break;
           end;
           if found then
           begin
               // нашли
               break;
           end;
       end;
   end;
   if found then break;
end;