How to load a custom cursor?

[SnakeBR]

This code don't work, why?

procedure TForm1.Button3Click(Sender: TObject);
const
    NovoCursor = 1;
begin
  Screen.Cursors[ NovoCursor ] := LoadCursorFromFile('c:\windows\cursorsglobe.ani' );
  Cursor := NovoCursor;
end;

[matthijs]

Define: "don't work".

Maybe the last line but one should be

Code: [Select]


  Screen.Cursor := NovoCursor;