Mit deiner Methode hat es bei mir im
RAD Studio 2009 zwar auch schonmal funktioniert, aber einfacher finde ich diese hier:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
h : THandle;
begin
h := LoadImage(0,'cursor.ico',IMAGE_CURSOR,0,0,LR_DEFAULTSIZE or LR_LOADFROMFILE);
Screen.Cursors[1] := h;
Form1.Cursor := 1;
end;