Wyciąganie z zasobów

jak w builderze wyciągnąc np kursorek z zasobów i ustawić go dla całej aplikacji po kliknięciu buttona nie działa :

void __fastcall TForm1::Button1Click(TObject *Sender)
{
const crMyCursor = 5;


  Screen->Cursors[crMyCursor] = LoadCursor((void *)HInstance, "Cursor1");
  Form1->Cursor=TCursor(crMyCursor);

}

Screen->Cursor=TCursor(crMyCursor);