Carregando um cursor animado

procedure TForm1.Button2Click(Sender: TObject);
const cnCursorID = 1;
begin
Screen.Cursors[cnCursorID]:=LoadCursorFromFile( 'drive:\caminho\arquivo.ani' );
Cursor := cnCursorID;
end;