怎么在屏幕中 查找图片

如何在屏幕中 查找图片
vbs里面有一个findpic的函数不知道要怎么调用？

function   FindPic(iLeft,iTop,iRight,iBottom,szFileName,fSimilar,ByRef   FoundX,ByRef   FoundY)
'这个函数用于在屏幕范围内查找图片
dim   obj
set   obj   =   createobject( "QMDispatch.QMFunction ")
FoundPixel   =   obj.FindPic(iLeft,iTop,iRight,iBottom,szFileName,fSimilar)
FoundX   =   CInt(FoundPixel   /   8192)
FoundY   =   FoundPixel   Mod   8192
end   function

如果不用   vbs   ，算法要怎么实现   ？？

[解决办法]
贴别人的,我也不知道对不对.没试过.
procedure TForm1.Button4Click(Sender: TObject);
var
tmp:olevariant;
x,y:integer;
begin
x:=0;y:=0;
tmp:=createoleobject( 'QMDispatch.QMFunction ');
y:=tmp.FindPic(0,0,1023,767, '1.bmp ',1);
x:=y div 8192;
y:=y mod 8192;
SetCursorPos(x,y);
end;