#pas
procedure THIUseExtCursor._work_doSetResCursor;
begin
  if not Assigned(FControlManager) then exit;
  DestroyCursor(hCursor);
 {$R Cursors.res}
  hCursor := LoadCursor(HInstance, PChar(ToString(_Data)));
  sControl.Cursor := hCursor;
  _hi_CreateEvent(_Data, @_event_onSetCursor); 
end;