Mouse - esconder o cursor da form desejado

Como esconder o mouse do form desejado

(esta dica foi encontrada neste site http://delphi.about.com/library/weekly/aa072799.htm)

type

  TForm2 = class(TForm)

    Label1: TLabel;

  private

    { Private declarations }

    procedure CMMouseEnter(var msg: TMessage); message CM_MOUSEENTER;

    procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;

  public

    { Public declarations }

  end;

procedure TForm2.CMMouseEnter(var msg: TMessage);

begin

  ShowCursor(False);

end;

procedure TForm2.CMMouseLeave(var msg: TMessage);

begin

  ShowCursor(True);

end;

Nos meus teste funcionou perfeitamente