Поиск изображения на экране

[bmp]

Вопрос решен! нашел исходник определяющий это. Скачать можно тут http://you43.ru/view/post:124865

Пытаюсь сделать поиск части изображения на экране.
Берется снимок экрана и в нем ищу изображение Image3 с формы (pf24Bit).
Ничего не выходит, результат ввиде координат должен появится в memo2. Сразу скажу, поиск аналогичных кодов в интернете ничего не дал.
Вот код.

var
 bmp_scr:TBitmap;

function GetScreenShot(PixelFormat:TPixelFormat;Width,Height:Integer): TBitmap;
var
  Desktop: HDC;
begin
  Result  := TBitmap.Create;
  Desktop := GetDC(0);
  try
    try
      Result.PixelFormat := PixelFormat;
      Result.Width := Width;
      Result.Height := Height;
      BitBlt(Result.Canvas.Handle, 0, 0, Result.Width, Result.Height, Desktop, 0, 0, SRCCOPY);
      Result.Modified := True;
    finally
      ReleaseDC(0, Desktop);
    end;
  except
    Result.Free;
    Result := nil;
  end;
end;

Function TForm1.FindSmall(x1,y1:integer):boolean;
var x,y:integer;
begin
result:=false;
x:=0; while x<>image3.Width do begin
y:=0; while y<>image3.Height do begin
if bmp_scr.Canvas.Pixels[x1+x,y1+y]<>image3.Canvas.Pixels[x,y] then exit;
inc (y);
end;
inc (x);
end;
result:=true;
end;

procedure TForm1.Find;
var x,y:integer;
begin
bmp_scr:=GetScreenShot(pf24Bit,screen.Width,screen.Height);
memo2.Lines.add(inttostr(screen.Width));
memo2.Lines.add(inttostr(screen.Height));
x:=0; while x<>screen.Width-image3.Width do begin
y:=0; while y<>screen.Height-image3.Height do begin
if FindSmall(x,y) then begin
    memo2.Lines.Add(inttostr(x));
    memo2.Lines.Add(inttostr(y));
    exit;
end;
inc (y);
end;
inc (x);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Find;
end;