Iconos y colores en controles fallan

[aguml]

He estado liado con esto y tengo ya mi archivo de recursos con dos cursores, uno para todo y otro para el link. El del link va perfecto pero el que quiero que se muestre en todo lo demas no funciona y me muestra el que tengo por defecto. He probado varias cosas pero lo que tengo ahora mismo es esto:
En el .cpp:

Código PHP:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    //Pongo los cursores deseados para mi aplicacion
    CursorOriginalDefault = ::GetCursor(); // Salvas tu cursor original
    CursorOriginalLabelURL = Screen->Cursors[crLink];
    crOriginalLabelURL = LabelURL->Cursor;

    ::SetCursor(LoadCursor(HInstance, MAKEINTRESOURCE(crDefault))); // Siendo MI_CURSOR el ID del cursor en cursores.res
    Screen->Cursors[crDefault] = LoadCursor(HInstance, "ARROW");
    Screen->Cursors[crLink] = LoadCursor(HInstance, "LINK");
    LabelURL->Cursor = (TCursor)crLink;
    ...
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
    ::SetCursor(CursorOriginalDefault); // Restauras tu antiguo cursor
    Screen->Cursors[crLink] = CursorOriginalLabelURL; // Restauras tu antiguo cursor
    LabelURL->Cursor = crOriginalLabelURL;
} 


En el .h:

Código PHP:

...
private:    // User declarations
    //Necesarios para restaurar los cursores por defecto
    enum{crDefault, crLink};
    TCursor crOriginalLabelURL;
    HCURSOR CursorOriginalDefault;
    HCURSOR CursorOriginalLabelURL;
    ... 


Espero puedas ayudarme y de paso quitar todo lo que sobre que estoy dando palos de ciego