500分请教！！高手请进！关于WINDOWS消息及WIN API函数的问题？在线等待！急！！！！！！！

Question

500分请教！！高手请进！关于WINDOWS消息及WIN API函数的问题？在线等待！急！！！！！！！
我编写一个工具，在不同的程序下，都可以取得当前的颜色，我想当鼠标离开此程序时，在别的应用程序下当击键盘上的一个键或鼠标左键，就可以使得Timer1.Enabled:=false;怎样设置？？？？如有那一位仁兄赐教，小弟不胜感激！！！！程序代码如下：
procedure TForm1.Timer1Timer(Sender: TObject);
var
vhdc:hdc;
fetchcolor:Tcolor;
begin
vhdc:=getdc(0);
try
fetchcolor:=getpixel(vhdc,mouse.cursorpos.x,mouse.cursorpos.y);
edit1.text:=inttostr(getRvalue(colortoRGB(fetchcolor)));
edit2.text:=inttostr(getGvalue(colortoRGB(fetchcolor)));
edit3.text:=inttostr(getBvalue(colortoRGB(fetchcolor)));
finally
releaseDc(0,vhdc);
end;
end;