Delphi Ver1.0 では 0から-16迄の値をデフォルトカーソルのインデックス
として割り当てています。そこで、独自のカーソルのインデックスを決めて
読み込むようにします。

0..-16以外の値を定数として宣言しておきます。
const
  crMyCursor = 1;

FormCreateのイベントハンドラ内で
Screen.Cursors[crMyCursor] := LoadCursor(HInstance, 'CNAME');
                                                    ^^^^^^^
^^^^^部分はリソースファイルに保存した時のカーソルの名前です。

カーソルの形状を変えたい所で以下のコードを書きます。
ComponentName.Cursor := crMyCursor;

Delphi 2 では、0から-20まで、Delphi 3 では、0から-21までの値がデフォ
ルトカーソルのインデックスとして割り当てています。そこで、独自の
カーソルのインデックスを決めて読み込むようにします。


又、リソースを使わずにカーソルファイルを使用するには、ＡＰＩの 
LoadCursorFromFile を使います。

const
  crMyCursor = 5;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Screen.Cursors[crMyCursor] := LoadCursorFromFile('カーソルファイル名');
end;

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum FDELPHIに寄せられる質問の中から、よくある質問への回答を FDELPHIのメンバーがまとめたものです。　したがって、これらの回答はボーランド株式会社がサポートする公式のものではなく、掲示されている内容についての問い合わせは受けられない場合があります。