有没有MouseOver事件？(30分)

在Timer的Timer事件中加入了label1.left:=label1.left-1;做成了文字滚动的效果！
像网页中的跑马灯一样，当鼠标指向他的时候，就timer1.enable:=false;停止滚动。
鼠标离开的时候就timer1.enable:=true;
但是好像delphi里面没有onmouseover和鼠标离开事件呀，请问这么编这个效果？

用onMouseMove事件

使用OnMouseEnter/OnMouseLeave，
add two private methods to TYourLabel class:
procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
>>>
procedure TYourLabel.CMMouseEnter(var Message: TMessage);
begin
inherited;
{....}
end;

procedure TYourLabel.CMMouseLeave(var Message: TMessage);
begin
inherited;
{....}
end;