光標進入離開事件 delphi

    procedure   CMMouseEnter(var   Message:   TMessage);   message   CM_MOUSEENTER;
    procedure   CMMouseLeave(var   Message:   TMessage);   message   CM_MOUSELEAVE;procedure   TForm1.CMMouseEnter(var   Message:   TMessage);  
  begin
      if   TObject(Message.LParam)   =   Image1  then   begin
          self.Caption   :=   '光標進入;
      end;
  end;

  procedure   TForm1.CMMouseLeave(var   Message:   TMessage);
  begin
      if   TObject(Message.LParam)   =   Image1   then   begin
          self.Caption   :=   '光標離開;
      end;
  end;   見鬼回車沒有反應！！