[angvelem]

Как ты проверяешь непонятно.

Код:

type
  TForm2 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure MouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
    procedure MouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  Wnd  : HWND;

implementation

{$R *.dfm}

procedure TForm2.MouseEnter(var Msg: TMessage);
begin
  Label1.Caption := 'Мышка на форме';
end;

procedure TForm2.MouseLeave(var Msg: TMessage);
begin
  Label1.Caption := 'Мышка вне формы';
end;