マウスカーソルを変更する

　自分のアプリケーション内のマウスカーソル変更は簡単にできるが、アプリケーションの外に出るとマウスカーソルはもとにもどってしまう。
　これは、外に出ても指定したマウスカーソルのままになる方法

const 
  myCursor1 = 2;

procedure TForm1.FOrmCreate(Sender: TObject)
begin
  Screen.Cursors[myCursor1] := LoadCursorFromFile('CursorData,cur');
  Cursor := myCursor1;  
end;

myCursor1 は 1以上の数字。システムで -21 〜 0 は使用されているため、この値は指定できない。
0: crDefault
-1: crNone
-2: crArrow
-3: crCross