Carregando um Cursor externo - Delphi

Este código faz com que seja possível carregar um cursor externo e substituir um dos cursores padrões do Windows em sua aplicação.
Basta que o cursor esteja no local especificado, e que você adicione o seguinte código ao evento onCreate do Form.


procedure TForm1.FormCreate(Sender: TObject);
begin
  Screen.Cursors[1] := LoadCursorFromFile('shot.cur');
  Form1.Cursor := 1;
end;

O código Screen.Cursors refere-se aos cursores do Windows e o índice [1]  refere-se ao cursor padrão
do Windows;
Então o cursor padrão é alterado pelo cursor shot.cur que foi carregado da pasta.
E a última linha refere-se que o cursor do Form1 é o 1, que foi substituído.

Abraço e até a próxima.