一个问题!help(20分)

怎么在我mouse移到一个对象（如Edit1）上时得到它的,handle ,并且要能改变它的值
?
多谢!!!

procedure CM_MouseEnter(var msg: TMessage); message CM_MOUSEENTER;
procedure CM_MouseLeave(var msg: TMessage); message CM_MOUSELEAVE;

实现
procedure TForm1.CM_MouseEnter(var msg: Tmessage);
begin
inherited;
Font.Color:= clBlue; { 改变进入时的字体颜色为蓝色 }
...
end;
procedure TForm1.CM_MouseLeave(var msg: Tmessage);
begin
{ 同理, 可以恢复鼠标进入前的状态... }
...
end;

我的意思是能你c++ Spy 那样，能看探测各种程序，但是我还要能改变被探测的程序的
一些属性,如caption之类的....