Eigenen Cursor zuweisen

[TomyN]

Hallo,

seit langer Zeit nutze ich die folgenden Zeilen um in der Resource gespeicherte selbstdefinierte Cursoren (? Cursors?) zu laden.

Delphi-Quellcode:

procedure TSATMAT.LoadCursors;
var
  CursorLoadID: HIcon;
begin
  CursorLoadID := LoadCursor(hInstance, 'CUCURVE');
  screen.Cursors[cuCu] := CursorLoadID;
  CursorLoadID := LoadCursor(hInstance, 'CUPEQQ');
  screen.Cursors[cuPEQ] := CursorLoadID;
  CursorLoadID := LoadCursor(hInstance, 'REDDOT');
  screen.Cursors[cuRD] := CursorLoadID;
  CursorLoadID := LoadCursor(hInstance, 'CURED');
  screen.Cursors[cuRed] := CursorLoadID;
end;

Das hat bisher immer funktioniert, nun bekam ich von einem Kunden einen Fehlerbericht, der hier einen Out of Range Error (win10 / 64) berichtete.
Da bin ich aktuell etwas ratlos, denn die Doku und die Beispiele, die ich finde, geben keinen Hinweise.

Vielleicht hat ja jemand von Euch eine Idee.

Tomy