#pas
var hCur: HCURSOR; 
    hMod: HMODULE; 
begin
   hMod := LoadLibrary( 'comctl32.dll' );
   hCur := LoadCursor(hMod, MAKEINTRESOURCE(106));
   Control.Cursor := hCur;
   FreeLibrary(hMod);