Saber quando o mouse entra e sai de um TForm

var
  Dentro: Boolean;

procedure TForm1.FormMouseEnter(Sender: TObject);
var
  Posicao: TPoint;
begin
  if  Dentro then
      Exit
  ;

  GetCursorPos( Posicao );
  if  ( (Posicao.X >= Self.Left) and (Posicao.X <= (Self.Left + Self.Width)) )
  or  ( (Posicao.Y >= Self.Top) and (Posicao.Y <= (Self.Top + Self.Height)) ) then
    begin
      Dentro := True;
      ShowMessage( 'To Dentro' );
    end
  ;
end;

procedure TForm1.FormMouseLeave(Sender: TObject);
var
  Posicao: TPoint;
begin
  GetCursorPos( Posicao );
  if  ( Posicao.X < Self.Left )
  or  ( Posicao.Y < Self.Top )
  or  ( Posicao.X > (Self.Left + Self.Width) )
  or  ( Posicao.Y > (Self.Top + Self.Height) ) then
    begin
      Dentro := False;
      ShowMessage( 'To fora' );
    end
  ;
end;

private

    { Private declarations }

    HookHandle : HWND;//Variável para armazenar o handle da nossa hook procedure.

Const WH_MOUSE_LL = 14;//Constante que contém o valor da hook global de mouse.

Function GlobalMouseHook(Code : Integer; wParam : WPARAM; lParam : LPARAM) : LRESULT; StdCall;//Função de callback que receberá as notificações de mouse.

Var CursorPosition : TPoint;//Variável para receber as coordenadas do mouse.



  Begin



     GetCursorPos(CursorPosition);//Receberá as coordenadas do mouse.



     If WindowFromPoint(CursorPosition) = Form1.Handle Then//Se o handle retornado for igual ao do form, então o mouse está na área do form.



        ShowMessage('Mouse na área do form.');



     Result := CallNextHookEx(Form1.HookHandle, Code, wParam, lParam);//Diz ao Sistema operacional para processar normalmente a mensagem gerada pelo mouse.



  End;

Self.HookHandle := SetWindowsHookEx(WH_MOUSE_LL, @GlobalMouseHook, 0, 0);//Registra nossa função de callback e retorna o seu id na hook chain do sistema operacional

Self.HookHandle := SetWindowsHookEx(WH_MOUSE_LL, @GlobalMouseHook, 0, 0);//Registra nossa função de callback e retorna o seu id na hook chain do sistema operacional

UnhookWindowsHookEx(Self.HookHandle);//Remove da hook chain o id da nossa função de callback.